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Dirigi, pianifica, 
controlla 9 tuo lavoro 
con Dossier. 


Carica DOSSIER® nel tuo 
personal* e costruisci i tuoi dossier 
elettronici. Progetta i tuoi budget, 
controlla le tue previsioni, verifica i tuoi 
obiettivi di vendita, di produzione, di prezzo, 
di costo. Magari ancora prima di prendere le 
DOSSIER® li visualizzerà con una grafica 
splendida e li stam perà per te e per i tuoi 
collaboratori. Ma se non vuoi svelarne i contenuti, 
una tua parola d’ordine li proteggerà. 


DOSSIER 


è un prodotto italiano in italiano. 


* Attualmente Mondadori lo pubblica per Apple e per il personal computer IBM. 

• DOSSIER è un prodotto realizzato dalla Etnoteam 
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Dadi e punti 

Un gioco. Ma di strategia e fortuna, in parti uguali. Provare 
per credere. E vince chi riesce a fare il punteggio più basso. 
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Prova con Sistema Base 

1 programmi di data base hanno pregi e difetti. Ma anche chi 
li possiede tutti troverà interessante provare quello che... 

29 

Ecco Logo in italiano 

Tradurlo ha comportato notevoli difficoltà concettuali, perché 
è un linguaggio, non un programma. Ma la divisione editoria 
elettronica della Mondadori... 

30 

Per scattar computerfoto 

Una scheda nello slot 3. E una telecamera. Ed ecco che 

Apple ora ha anche la vista. Per farne che cosa? 

Etichette più che perfette 

Tutte uguali. Nel numero desiderato. E poi, cambiando testo 
o cambiando solo una riga, altre? Quante? Come? Con questo 
programma... 

39 

Per servire l’abbonato 

Circoli, club, piccole riviste: per tenere aggiornato l’elenco dei soci 
o degli abbonati, e spedire comodamente circolari o riviste... 
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Qui vediam s’è proprio equo 

Per inquilini o proprietari, l’equo canone costringe a calcoli 
complessi. Ecco un modello VisiCalc che permette di conteggiare 
o verificare. 
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Dai video alla stampante 

Le stampanti fanno spesso ammattire. Ma questa routine per il 
dump della pagina grafica mette il guinzaglio alla Epson MX-80. 
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Per amare le matrici 

Applesoft Basic: tutorial. Seconda puntata. Ma non soltanto per 
i principianti. Anche gli esperti scopriranno che... 

f™ Signorina, al contratto pensi lei! 

Preparare automaticamente e in pochi secondi contratti anche 
v*# molto complessi? Con decine di opzioni diverse? Con il WPL 
si può. E la segretaria... 


In esclusiva i diritti per l’Italia di: 

Incider, 80 Pine St., Peterborough, NH 03458, USA 


Nibble, P.O. Box 325, Lincoln, MA 01773, USA 





























f^cippkz computer 


Distribuzione per l’Italia 


" informatica 


Nata.. 


nel settore della piccola informatica la risposta chiara al tuo problema 

l’assistenza! 



HOP 


i nella scelta dell'elaboratore 
e nel dimensionamento del sistema. 


Programmi applicativi disponibili: 


DOPO 

l’assistenza nella scelta del programma 
e nella personalizzazione. 


gestione archivio • gestione contabile. 

1 gestione magazzino • paghe e stipendi 
1 distinta base • word processing 
1 ingegneria civile 
1 calcolo e disegno automatico 


POI 


l’assistenza neH'awiamento e sviluppo 
e nella riparazione dell'elaboratore. 


Per ogni esigenza 
e per saperne di più 
vieni da noi: 
un morso all’Apple 
ti chiarirà le idee! 


» INFORMATICA SHOP rivenditore autorizzato IRET 
VIA LAZZARETTO 2 MILANO tei. 28 70 105 (4 linee) 
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Tutti i diritti di riproduzione e tra¬ 
duzione di testi, articoli, progetti, 
illustrazioni, disegni, listati di pro¬ 
grammi, fotografie ecc., sono ri¬ 
servati a termini di legge. I pro¬ 
grammi pubblicati su Applicando 
possono essere utilizzati per 
scopi privati, scientifici e dilettan¬ 
tistici, ma ne sono vietati sfrutta¬ 
menti e utilizzazioni commerciali. 
I manoscritti, i disegni, le foto, an¬ 
che se non pubblicati, non si re¬ 
stituiscono. 


E' settembre » a Milano c' è lo Smau, e alio Smau c'è Lisa. 
Che parla italiano. Eppure in questo numero di Applicando di 
Lisa non parliamo, salvo in questa pagina. Un ve220? Un 
imperdonabile snobismo? Niente affatto: di Lisa contiamo di 
parlare poco e niente anche in futuro. Non è che Lisa non ci 
interessi: è che ci interessa molto di più quel che si può fare 
con Lisa, le sue applica2ioni piuttosto che il suo hardware 
ormai noto a tutti. Per cui di Lisa parleremo molto, 
moltissimo, ma indirettamente, via via che nuovi pacchetti di 
software saranno pronti. Chi ha già Lisa in casa, ci scriva: 
saremo lietissimi di pubblicare qualunque informa2Ìone utile. 
Chi ha notizia di problemi interessanti risolti con Lisa, ce lo 
segnali: saremo felici di pubblicare tutto ciò che può aiutare. 

Applicando è nàto proprio per questo e questo vuole 
essere: uno strumento per ottenere di più dal computer, per 
sfruttarlo al meglio. Ci siamo riusciti? Ci stiamo riuscendo? 
Speriamo di si, pur con la consapevole2za che molto si può 
ancora fare per migliorare la rivista. Scriveteci, per favore. 
Qualsiasi suggerimento, proposta, consiglio, segreto, “trucco*: 
è tutto ben accetto. E tutto servirà ad allargare il patrimonio 
comune dì chi usa un Apple, sia esso un 11 , un //e, un ///, un 
Lisa. 

L' invito a scrivere e coìlaborare vale naturalmente anche 
per i programmi: meglio se utili, capaci di risolvere un 
problema concreto. Ma crediamo che ai nostri lettori non 
dispiaccia anche qualche frivolezza, sia pure con misura, 
soprattutto se interessante per la struttura del programma, per¬ 
le soluzioni adottate. Coraggio: avete messo a punto una nuova 
routine che fa risparmiare minuti preziosi? Avete trovato una 
soluzione innovativa per qualche vecchio problema? 0 anche: 
avete ideato un gioco divertente e stimolante? Noi siamo qui 
per fare da tramite tra tutti coloro che applicano... 




P.S. Ci vediamo all' AppìeFest di San Francisco? 


ASS. USPI 




12 


Associala a. d I > L u 
(Federazione Italiana Editori Giornali) 













I comfort dell’eremita 


È stato lui a progettare 
tutto il sistema di illumina¬ 
zione computerizzato della 
Space Shuttle, ma da sei 
anni ormai ha lasciato la Na- 
sa, rinunciando agli scintillìi 
e ai fragori assordanti della 
vita moderna per rifugiarsi 
in uno chalet fuori dal mon¬ 
do, nell’Oregon, alle prime 
pendici della Eight Dollar 
Mountain. Pur vivendo da 
eremita, Paul Lutus non ha 
però rinunciato all’alta tec¬ 
nologia: è lui che, nella pace 
della montagna, ha messo a 


punto l’Apple Writer //, e 
continua a studiare linguag¬ 
gi e sistemi di programma¬ 
zione, oltre a dedicarsi alla 
sua seconda passione: gli 
strumenti musicali, e in par¬ 
ticolare il violoncello. Dalla 
sintesi strumenti-computer 
stanno nascendo nuovi pro¬ 
grammi per la produzione di 
musica con l’Apple, che 
avranno anch’essi la sua 
firma. 

Per portare fino allo cha¬ 
let l’elettricità necessaria ad 
alimentare le sue apparec- 
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chiature Lutus ha speso una 
fortuna. «E visto che c ero», 
dice, «ho fatto arrivare fin 
quassù anche il telefono.» 
Può sembrare una contrad¬ 
dizione per chi ha scelto di 
vivere in isolamento volon¬ 
tario, ma non è così. Il suo 
numero infatti è segretissi-, 
mo e Lutus quasi non ricor- 4 
da che abbia mai suonato. È 
lui che chiama, invece: le 
banche dati. Grazie a que¬ 
ste ultime non ha più biso¬ 
gno dei giornali (legge le no¬ 
tizie direttamente sullo 
schermo di un Apple) né di 
una biblioteca. 



Una mela 
per Alice 

Qual è lo strumento di la¬ 
voro ideale per un tradutto¬ 
re? Masolino D’Amico non 
ha dubbi. Scrittore, comme¬ 
diografo, docente d’inglese 
all’Università di Roma e tra¬ 
duttore di Lewis Carroll per 
la casa editrice Einaudi, già 
da tre anni ha scelto un Ap¬ 
ple II, che per lui ha comple¬ 
tamente sostituito la mac¬ 
china da scrivere. 

E infatti tutta con l'Apple è 
stata scritta la commedia Le 
lettere di Lewis Carroll , an¬ 
data in scena con successo 
al festival di Spoleto, che 
D’Amico ha costruito dopo 
aver ritrovato le missive ori¬ 
ginali dell’autore di Alice nel 
paese delle meraviglie : il re¬ 
verendo Charles Lutwidge 
Dogson, professore di ma¬ 
tematica al Christ Church 
College di Oxford. 


Incuriosito dalla singolare 
personalità del severo pro¬ 
fessore inglese, che inventò 
lo pseudonimo Lewis Car¬ 
roll per firmare la fiaba che 
una bambina, Alice Liddell, 
lo aveva pregato di scrivere 
per lei, Masolino D’Amico 
cominciò a salvare su disco 
le traduzioni per aprire un 
nuovo file: quello della com¬ 


media che stava comincian¬ 
do a prender forma. La 
scrisse all’inizio in inglese, 
per poi tradurla (sempre con 
Apple) in italiano. La com¬ 
media è stata premiata al 
concorso di critica teatrale 
di Riccione, e a Spoleto è 
stata interpretata da Mino 
Bellei, nella parte di Charles 
Lutwidge Dogson. 

L’anno d’oro 
di Steve 

La sua fortuna, certo, è 
stata quella d’inventare Ap¬ 
ple. Ma l’anno veramente 
d’oro di Steve Jobs è stato 
quest’ultimo. Senza alcuna 
fatica ha infatti guadagnato 
ben 265 milioni di dollari 
grazie alla costante rivaluta¬ 
zione delle azioni Apple alla 
borsa di Nuova York. Ven¬ 
toso anni e miliardario già a 
venti, Jobs possiede il 12,8 
per cento della società, di 
cui è presidente ed è stato, 
con Markkula, co¬ 
fondatore. Il valore totale 
delle sue azioni è aumenta¬ 
to del 272% in 12 mesi, por¬ 
tando il suo patrimonio glo¬ 
bale al livello dei 362 milioni 
di dollari (circa 543 miliardi 
di lire). Markkula, 40 anni, 
s’è dovuto accontentare in¬ 
vece di un aumento di 222 
milioni di dollari. Gli incre¬ 
menti sono stati calcolati 
dalla rivista Fortune, che già 
in febbraio aveva dedicato a 
Jobs una copertina. 



7 













lo applico, 
tu applichi? 


La pubblicità su 
Applicando è informazione. 
Chi legge Applicando 
possiede un computer 
Apple o sta per acquistarlo. 
Oppure sta per cambiarlo 
con un Apple //e. 

O con un Lisa. 

Oppure non lo cambia 
affatto, se lo tiene stretto, 
ma vuol sapere dove, 
come e cosa fa 
veramente per lui. 

Una nuova marca 
di dischetti? 

Una nuova 
Software House? 

Una nuova stampante 
a basso prezzo? 

Per chi applica, 
è importante saperlo. 
Subito. 


Per la pubblicità 

STUDIOSFERA 


l a Strada, 24 

Milano San Felice (Segrate) 
Tel. (02) 75 32 151 
(02) 75 33 939 



uando 



Madrid 

14-16 Settembre 

Euromicro 1983 Sympo¬ 
sium: con questo nome si 
apre la prima rassegna del 
microcomputer in Spagna 
(dove gli Apple installati so¬ 
no circa 3.000) e dove è ap¬ 
pena nata una rivista apple- 
orientata dal nome signifi¬ 
cativo: La manzana, cioè la 
mela. Per informazioni rivol¬ 
gersi a Euromicro TH Twen- 
te, PO Box 217, Dept. INF 
room A312, 7500 AE En- 
schede, Olanda. Sì, gli or¬ 
ganizzatori? Olandesi. 

Parigi 

19-23 Settembre 

Il nono World Computer 
Congress IFIP 83 si apre 
proprio a ridosso dello 
Smau (che si tiene invece a 
Milano dal 10 al 15 settem¬ 
bre, e di cui abbiamo dato 
notizia nel numero scorso). 
Per informazioni rivolgersi a 
IFIP ’83, 4-6, Place de Va- 
lois, F-75001 Paris, 
Francia. 


Boston 

14- 15 Ottobre 

Annual Computer Confe- 
rence for Educators: è una 
manifestazione per inse¬ 
gnanti, giunta ormai alla ter¬ 
za edizione. Per informazio¬ 
ni: Dave Flowers, 1230 S. 
Clinton St., Fort Wayne, IN 
46802, USA. Telefono dal¬ 
l’Italia 001.219.425.7228. 

Hong Kong 

15- 17 Ottobre 

Hong Kong Consumer Elec¬ 
tronics Show 1983: un clas¬ 
sico da non perdere per chi 
ha tempo e denaro. Per in¬ 
formazioni: a A.D. Adams 
Advertising, 9 East 38th St., 
New York, NY 10016, USA. 
Telefono dall’Italia 
001.212.685.9060. 

Tutti coloro che stanno or¬ 
ganizzando o comunque 
sono a conoscenza di 
eventi, mostre, fiere, ecc. 
interessanti per gli utenti 
Apple sono cortesemente 
pregati di segnalarli. 


Hit-Parade Usa 

1. Apple Writer Ile, Paul Lutus, Apple Computer 

2. Zaxxon, John Garcia, Datasoft 

3. PFS:File, J. Page e D.D. Roberts, Software Publi- 
shing Corporation 

4. VisiCalc, Software Arts/D. Bricklin e R. Frankston, 
VisiCorp 

5. MasterType, Bruce Zweig, Lightning Software 

6. Multiplan, Microsoft 

7. Home Accountant, B. Schoenburg L. Grodin e S. 
Pollack, Continental Software 

8. Mlner 2049er, M. Livesay e B. Hogue, Micro Fun 

9. PFSrReport, J. Page, Software Publishing Co. 

10. Bank Street Writer, G. Kuzmiak, Broderbund Soft¬ 
ware 

11. Choplifter, D. Gorlin, Broderbund Software 

12. Quick File II, R. Lissner, Apple Computer 

13. Wizardry, A. Greenberg e R. Woodhead, Sir-tech 

14. Typing Tutor, Image Producers, Microsoft 

15. Apple Logo, Logo Computer Systems, Apple 
Computers 

16. Wordstar, MicroPro 

17. Frogger, O. Lubeck, Sierra On-Line 

18. Hard Hat Mack, M. Abbott e M. Alexander, Electro¬ 
nic Arts 

19. PFS:Graph, B. Chin e S. Hill, Software Publishing 
Corporation 

20. Stlckybear ABC, R. Hefter J. Rice e S. Howe, 
Xerox Education Publication 






Memotutor-Adelco 
sistemi scientifici per 
l'apprendimento rapido. 


Perché non imparare le lingue bene e 
rapidamente? Perché non imparare 
a leggere velocemente e a ricordare 
per sempre tutto quello che si è letto? 
La Adelco Italia mette a 
tua disposizione i più 
nuovi ed evoluti SISTE¬ 
MI PER MEMORIZZARE 
rapidamente lingue stra¬ 
niere, lezioni, cifre e dati 
di lavoro, discorsi da te¬ 
nere in pubblico, etc. 

Managers, professioni¬ 
sti, uomini d’affari, atto¬ 
ri, giornalisti, persone 
impegnate intellettual¬ 
mente, devono ricordare 
ogni giorno moltissime 
cose per svolgere con 
successo le loro attività. 

I vari SISTEMI PER MEMORIZZARE 
Adelco, studiati e sperimentati con ri¬ 
gore scientifico, ti danno finalmente 
la possibilità di sviluppare e sfruttare 
al meglio le potenzialità della tua me¬ 


moria. Ad esempio, con il metodo ite¬ 
rativo automatico, puoi far scivolare 
nella mente quanto è stato registrato 
su normali cassette, superando i bloc¬ 
chi psichici dovuti a 
stanchezza fisica, so¬ 
vraffaticamento menta¬ 
le o poca disposizione 
per una data materia. 

I SISTEMI PER MEMO¬ 
RIZZARE Adelco si usa¬ 
no in tutta tranquillità a 
casa propria e garanti¬ 
scono i risultati, perché 
fondati su basi scientifi¬ 
che e su una vasta espe¬ 
rienza internazionale nel 
settore specifico del¬ 
l’apprendimento rapido. 
Vieni a trovarci senza 
impegno per scegliere tra i vari SI¬ 
STEMI quello più adatto alle tue esi¬ 
genze e alle tue disponibilità: troverai 
un valido e sicuro aiuto per progredi¬ 
re sulla strada del successo. 



Vieni a scegliere il tuo. 


Apparecchi elettronici Memotutor e Kronosys, che si 

possono usare di giorno e durante il sonno. Corsi 
speciali in cassette che insegnano a sviluppare la 
memoria ed a leggere rapidamente con il massimo 
della comprensione. Corsi di lingue appositamente 


programmati per divenire un indelebile patrimonio in¬ 
dividuale. Testi ed accessori di studio per aiutare la 
facile e stabile memorizzazione di qualsiasi testo 
stampato o registrato, così da progredire rapidamen¬ 
te e senza fatica. 


MILANO ADELCO ITALIA s.r.l. - Via F. Casati 1/A (Ang. C.so B. Ayres) - 20124 Milano.Tel. 02/2711585 - 2041043 

TORINO HG INTERNATIONAL - Via Massena 77/Bis -10128 Torino.Tel. 011/503491 

GENOVA L. BRIOSCHI - Calata Porto 4 -16038 S. Margherita L. (Genova).Tel. 0185/89817 

ROMA B & C - P.zza S. Giovanni in Laterano 18/B - 00184 Roma.Tel. 06/7598674 

PORDENONE HELSCO s.r.l. - Via Bertossi 7 - 33170 Pordenone.Tel. 0434/24030 

BARI CIMEL SUD s.r.l. - Via A. da Bari 28 - 70122 Bari.Tel. 080/218229 

VARESE CIMEL VARESE • Via Montalbano 1-21100 Varese.Tel. 0332/234008 

PALERMO DR. JENZI P. - Via Duca della Verdura 107 - 90143 Palermo.Tel. 091/268602 - 296668 

CAGLIARI B. ZANU - Via Libia 4 - 09044 Quartucciu (Cagliari).Tel. 070/884870 

COSENZA G. LAURICELLA - Via C. Colombo 6 - 87068 Rossano Se. (Cosenza).Tel. 0983/21820 

CALTANISSETTA MASTROSIMONE - Via C. Pisacane 12 - 93100 Caltanissetta.Tel. 0934/21436 

PADOVA HELSCO-FORMAT - Via Beethoven 3 - 35132 Padova..Tel. 049/604810 

ANCONA G. CENCIONI - Via Podgora 28 - 60124 Ancona.Tel. 071/32434 



AD.ELC0. Italia 


srl 


Sistemi per progredire 

20124 Milano - Via Felice Casati 1/A -Tel. (02) 2711585 - 2041043 -2046801 


. Ritagliare e spedire in busta regolarmente affrancata a: 

I ADELCO Italia • 20124 Milano - Via Felice Casati 1/A 


i 

l 

l 

l 


Mi interessa: 

Imparare lingue straniere ! .1 
Imparare la lettura rapida I 

Nome Cognome. 


| Professione 


Memorizzare dati documenti etc. [71 
Sviluppare la memoria LJ 


.-Tel. 


I Indirizzo....CAP 

i 
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bit computers 


Lo più esteso e fornito rete di vendite appiè nei Lezio 

apre a Roma il primo 


cippkz >hop 


Via F. Satolli, 55 - 59 Roma 


Tutti gli appiè e tutto per appiè 

Disponibili tutti i prodotti hardware e soflwore per la 
linea appiè distribuiti do Iret Informatico, Informatique, 
Cominfor, Bits b Bytes etc. 

Completo ossistenzo hardwore e softwore, corsi e libri appiè 

Pronta consegno 

appkz Ile - applc /// 


Prenotazioni 


css» 


applc ùóibz 


Offerte promozionoii, mercoto dell'usoto e credito personole 
appiè Ile nuovi o portire do L 32.000 ol mese per 36 rote 


Sede centrale: Roma - Via Flavio Domiziano, 10 (Eur) - tei. 06/5126700-5138023 

Apple shop: Roma - Via F. Satolli, 55/57/59 (p.zza pio XI) - tei. 06/6386096-6386146 

Latina: C.so della Repubblica, 200 - tei. 0773/497301 

Cisterna di Latina: Via Aversa, 11 - tei. 06/9696973 

Napoli: Via Terracina, 354 Parco Angela Is, F - tei. 081/611817 

Gaeta: Lungotevere Caboto Parco Belvedere Conca - tei. 0771/470168 

Tarquinia: Via S. Lùcia Filippini, 17 - tei. 0766/856212 

Vlteifeo: Via Giacomo Matteotti, 73 - tei. 0761 /38669 

Distribuzione 
per l'Italia 








0^g)O8cosa 


Credit-mela 

Per mordere una fetta an¬ 
cora più grossa della mela, 
negli Stati Uniti la Apple di 
Cupertino ha appena lan¬ 
ciato la sua carta di credito, 
la prima (in un paese dove 
anche le catene di grandi 
magazzini hanno la loro) 
emessa da una casa pro¬ 
duttrice di computer. È de¬ 
stinata a coloro che non di¬ 
spongono di una sufficiente 
linea di credito sulle normali 
carte bancarie tipo Visa, 
MasterCard, ecc., ma desi¬ 


derano ugualmente rateiz¬ 
zare il loro acquisto. Chi 
vuole ottenerla deve richie¬ 
derla in uno dei 1400 com¬ 
puter shop americani, ac¬ 
quistando un computer (con 
una spesa minima di 1400 
dollari), e pagandone il 10% 
in contanti. Dopo un control¬ 
lo telefonico che richiede 
una quindicina di minuti, si 
diventa così proprietari di un 
Apple e titolari della carta. 
Dopodiché si salderà il con¬ 
to con pagamenti mensili di 
90 dollari, o più se con la 
nuova credit card si effet¬ 
tuano altri acquisti. 


Chi vuol scendere in miniera 


Negli Stati Uniti va a ruba 
(vedere l’Hit-Parade a pag. 
8), e disponendo di uno 
schermo a colori non ha nul¬ 
la da invidiare ai coloratissi¬ 
mi giochi cosiddetti Arcade, 
per intenderci quelli suc- 
chia-soldi dei bar. In pratica 
Miner 2049er raffigura una 
miniera futuristica disposta 
su quattro piani. Bounty Bob 
deve scalare tutti e quattro i 
piani, superando le più in¬ 
credibili e spaventevoli diffi¬ 
coltà. Quando viene spaz¬ 
zato via da un mostro della 


miniera, da una frana o da 
qualsiasi altro fatale acci¬ 
dente, un altro Bounty Bob 
prenderà il suo posto (in tut¬ 
to sono tre). 

Naturalmente via via che 
si diventa più bravi si proce¬ 
de incrementando i livelli di 
difficoltà. Non mancano, ol¬ 
tre alle difficoltà, anche gli 
aiuti: Bounty Bob mangia il 
trinitrotoluene ricavandone 
una forza da leone. Il gioco, 
che si disputa armati di joy¬ 
stick, è di ottima fattura e 
buon livello tecnico. 


Non perdete l’Applefest 


Non importa quel che fate 
o quel che vorreste fare col 
vostro Apple: la soluzione è 
a San Francisco, al Mosco¬ 
ne Center, dal 28 al 30 di 
ottobre. Questa in sostanza 
la sintesi della doppia pagi¬ 


na di pubblicità con la quale 
gli organizzatori dell’Apple- 
Fest di San Francisco stan¬ 
no inondando tutte le riviste 
americane orientate verso 
Apple. -Promettono, in mo¬ 
stra, migliaia di nuovi e inno- 




Prodotto dai fratelli Nerio 
e Filiberto Testa (Via Pola- 
nesi 17, 16030 Sori, Geno¬ 
va, telefono 0185/730773) 
che hanno tuttora in corso 


vativi prodotti Apple- 
compatibili, tutti da provare, 
toccare, confrontare e, vo¬ 
lendo, anche comprare. 
Tutto ciò che sarà esposto, 
infatti, è in vendita, e in oc¬ 
casione della manifestazio¬ 
ne sarà disponibile a prezzi 
speciali. 

Per chi volesse approfit¬ 
tare dell’occasione, ricor¬ 
diamo che Applicando ha 
organizzato un viaggio a 
San Francisco (vedere a 
pag. 65) a prezzi speciali. 
Ma è necessario mandare 
al più presto il tagliando di 
adesione. 


trattative con un’azienda 
che dovrebbe curarne la di¬ 
stribuzione in tutta Europa, 
ecco un tavolo studiato ap¬ 
positamente per l’Apple II. Il 
video può girare, sollevarsi 
da 10 a 25 cm rispetto al 
piano di lavoro, e anche es¬ 
sere inclinato per evitare 
eventuali riflessi. La griglia 
porta-stampante, girevole 
anch’essa, permette di po¬ 
sizionare nel modo più co¬ 
modo anche quest’acces¬ 
sorio, mentre la struttura 
leggermente elastica assor¬ 
be le eventuali vibrazioni, 
che a lungo andare potreb¬ 
bero risultare dannose per il 
computer. Un ripiano di ser¬ 
vizio, alla sinistra dell’ope¬ 
ratore, pure questo girevo¬ 
le, consente infine di tenere 
anche il telefono a portata di 
mano. Il prezzo? Indicativa¬ 
mente intorno alle 260 mila 
lire. Ma verrà fissato definiti¬ 
vamente quando andranno 
in porto gli accordi. 


Regolabile piano e ripiano 
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PERSONAL COMPUTER 
E'UNO STRUMENTO 
D’OGGI: 


Personal 
Computer: 
ecco uno strumen¬ 
to personale che Vi 
proietta già neH’awenire. Non c’è 
bisogno di aspettare domani per 
DA/^ATEI A assicurarsi un computer veramente 
rAUAI BLU personal, già oggi: basta avvalersi - per 

NELL’AVVENIRE CON doSESS^S 

W PRESTITEMPO 
una formula di finanzia¬ 
mento studiata apposi¬ 
tamente dalla BAI - una banca, come 
si vede, all’avanguardia - per le persone che 
lavorano già nel futuro. Come si fa, 
dunque, per avere subito un Personal 

Computer? 

Chiedetelo al Vostro rivenditore di fiducia 

o alla più vicina filiale BAI. 


Prestitempo BAI 




d'America e d'Haua 


Da ritagliare e spedire a: BAI - Servizio Marketing e Comunicazioni - Via Borgogna, 8 - 20121 Milano 

□ Desidero ricevere informazioni più dettagliate sulla formula di finanziamento Prestitempo “Personal Computer” 

□ Desidero essere contattato telefonicamente da un vostro funzionario della Filiale più vicina per avere 
informazioni sulle altre opportunità Prestitempo. 


SIG. 


AZIENDA 


CAP 


CITTA 


TEL. 
















Sals Informatica: 

Tutti i servizi 
per la vostra automazione. 

□nSals 

=nU Informatica 


Via G. D’Annunzio 2-35 - 16121 Genova tei. (010) 589.327 


Per uscire 
dal labirinto 


DAEDALUS 


Software-star cercansi 


Hanno raccolto 5 milioni 
di dollari (la cifra più alta che 
mai si sia resa necessaria 
per lanciare una software 
house), e hanno lanciato 
Electronic Arts. Ora William 
Hawkins, ex direttore mar¬ 
keting della Apple di Cuper- 
tino, e Richard W. Melmon, 
ex direttore marketing della 
VisiCorp, sono a caccia di 
programmatori. Non però 
per ingaggiarli con lo stesso 
tipo di contratto con il quale 
operano le altre software 
house (dal 10 al 20% di 
royalties, per scrivere pro¬ 
grammi in base alle specifi¬ 
che indicate). No. Electronic 
Arts si muoverà come s’era- 
no mosse finora solo le case 
discografiche. Gli autori ver¬ 
ranno lanciati e promossi 


come le star della canzone. 
Saranno insomma «artisti». 
Uno dei primi di questi artisti 
del dischetto sarà probabil¬ 
mente Bill Budge (a destra 
nella foto, con Hawkins), 
che all’Electronic Arts ha af¬ 
fidato un programma chia¬ 
mato Raster Blaster (una 
specie di ping pong elettro¬ 
nico evoluto), e che sta ora 
studiando un programma 
che si chiamerà Pinball 
Construction Set, che per¬ 
metterà a qualunque utente 
di computer di costruirsi il 
suo gioco su misura. Budge 
ha un buon contratto: se tut¬ 
to andrà bene dovrebbe 
guadagnare 500 mila dollari 
già durante il primo anno di 
collaborazione con la nuova 
software house. 


È un’indiscrezione, ed 
Egidio Pentiraro si schermi¬ 
sce, ma sembra che sia sta¬ 
to proprio lui a ideare e ad 
aggiungere l’ultima sezio¬ 
ne, la più complessa e ap¬ 
passionante, al gioco del la¬ 
birinto per Apple (si chiama 
Daedalus) appena pubbli¬ 
cato su dischetto da Monda- 
dori. 

Che il responsabile della 
sezione editoria elettronica 
della casa editrice milanese 
si dilettasse con un Apple si 
sapeva. Ma che fosse ormai 
diventato un professionista 
di questo livello ha sorpreso 
non pochi addetti ai lavori. 


Apple 

a Genova. 

La mela 

secondo Sals Informatica: 

Sistemi completi pronta consegna 
Tutti gli accessori e le periferiche 
Materiali di consumo 
Programmi per ogni esigenza 
Assistenza tecnica 
Còrsi a tutti i livelli 
Consulenza 

Informazione tecnica e commerciale 


Show room 

flfccippkz computer 


Distribuzione per l’Italia 


informatica 






















I programmi di data base in commercio sono 
numerosi, e ciascuno ha i suoi pregi e i 
suoi difetti. Ma anche chi li possiede proprio tutti 
troverà interessante quello che proponiamo in queste pagine... 


I l Sistema Base gira in Applesoft su 
Apple //e, Apple // Europlus o Apple 
// 48K con l’Applesoft nella ROM, un 
dischetto e una stampante parallela o 
seriale. 

Prima di tutto ecco, però, qualche 
considerazione generale sul Sistema 
Base. Si tratta di un programma mo¬ 
dulare, in cui ciascun modulo è indi- 
pendente. Si troverà perciò necessa¬ 
rio reintrodurre il nome del file voluto 
ogni volta che si passa a un modulo 
diverso. Il disagio di dovere reintro¬ 
durre ogni volta il nome del file è com¬ 
pensato dalla codificazione ridotta e 
dalla possibilità di cambiare facilmen¬ 
te i dischetti. Varie linee di codice ripe¬ 
titive sono state convertite in subrouti¬ 
ne e messe all’inizio del programma, 
per ridurre il tempo di esecuzione. Infi¬ 
ne si constaterà presto che è stata 
usata molto spesso la funzione GET 
dell’Applesoft. Ciò eliminerà in molti 
casi la necessità di premere RE¬ 
TURN. Un consiglio: fino a quando 
non si è presa familiarità con il pro¬ 
gramma non ci si precipiti a premere 
RETURN dopo ogni introduzione di 
dati; può darsi che non sia necessario, 
e potrebbe causare qualche problema 
più avanti. 

Quando il programma viene fatto 
girare la prima volta compare una pa¬ 
gina di titolo. Il Sistema Base è adesso 
in stato di «hold» (in sospeso) e aspet¬ 
ta che si prema RETURN per conti¬ 
nuare. Il comando WAIT - 16384, 128 
interrompe il programma, ed è attesa 
una introduzione da tastiera prima 
che venga presentato il MENU. 

La definizione del record 

La prima volta che si gira il program¬ 
ma è necessario fare l’opzione 1 del 
MENU. Questa opzione permetterà di 
definire i campi in ciascun record. In 
fig. 1 qualche record esemplificativo, 
con i relativi campi. 

Si noti che l’esempio 3 usa la stessa 
definizione di campo (sia «Titolo» sia 
«Indirizzo») più di una volta. Questo è 
ammesso e, in molti casi, desiderabi- 


10 REM ************************ 

11 REM * * 

12 REM * SISTEMA BASE * 

13 REM * * 

14 REM * COPYRIGHT 1983 BY: * 

15 REM * * 

16 REM * APPLICANDO MD * 

17 REM * * 

18 REM * MICRO-SPARC, INC * 

19 REM * * 

28 REM ************************ 

80 PRINT CHRi (4);"BL0A0 SEARCH,A$8382" 

90 POKE 1013,76: POKE 1014,2: POKE 1015,3 
100 POKE 768,8: POKE 769,8 
110 REM METTE IL TITOLO SULLO SCHERMO 
128 TEXT : HOME : GOSUB 348 

138 VTAB 3: HTAB 11: PRINT "APPLICANDO ": VTAB 4: HTAB 
14: PRINT "28122 M1LM)*: VTAB 5: HTAB 11: PRINT • CORSO 
MONFORTE 39 " 

148 VTAB 9: HTAB 13: PRINT "P R E S E N T A": VTAB 12: HTAB 8 
: FLASH : PRINT "* S I S T E M A B A S E *": NORMAL : VTAB 
15: HTAB 18: PRINT "SISTEItt D'INFORWtZlONE": HTAB 8: PRINT 
"INTELLIGENTE AUTOMATIZZATO* 

145 VTAB 19: HTAB 14: PRINT "COPYRIGHT 1983" 

158 VTAB 21: INVERSE : HTAB 9: PRINT "PREMI RETURN PER IL MEN 
U" : NORMAL 

160 WAIT - 16384,128 
178 GOTO 508 

188 REM ** SUBROUTINES SOTTO ** 

198 VTAB 23: CALL - 868: PRINT "CONFERMI <S/N> ";G$;: GET Yi 
: PRINT Yi: RETURN 

288 PRINT "INSERISCI IL CMPO ";: 1WERSE :CV = PEEK (37): 60SUB 
218:PÌ(K) = 0$: RETURN 

218 PRINT TÌ(K)j: NORMAL : PRINT ": "jGi: PRINT Vii; TAB< TV< 

K) * 3)jV2Ì: VTAB <CV * 2): HTAB 2: INPUT "";Q$: VTAB <CV 
* 1): HTAB ( LEN <TÌ(K>> * 22): CALL - 958: PRINT W: RETURN 

220 PRINT Dij’OPEN ";FILE<;",L";RL 
238 PRINT Wì"URITE"ìF1LE*;",R"ìRX 
240 RETURN 

258 PRINT "PREMI "j: INVERSE : PRINT "RETURN":: NORMAL : PRINT 
" PER FINIRE RETURN 

268 VTAB 2: HTAB (28 - LEN (AAi) / 2): INVERSE : PRINT AAi: NORMAL 
270 VTAB 4: HTAB 2: PRINT Bi: VTAB 4: 1WERSE : HTAB (20 - LEN 
(Ali) / 2): PRINT Ali: POKE 34,4: NORMAL : RETURN 
288 PRINT Dij'QPEN ■jFILEi;",L";RL 
298 PRINT Dij'READ’jFILEi;',R’jRX 
300 RETURN 

310 HOME : PRINT : FOR K = 1 T0 NF: PRINT K;\ ";TÌ(K)j" - "j 
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Provate con 
Sistema Base 


: INVERSE : PRINT P$(K): NORMAL : NEXT K: RETURN 
328 V/TAB 23: KTAB 18: GOSUB 258: PRINT : VTAB 21: PRINT "JNTR 
ODUCI I LINEA DEI DATI ERRATI";G$j: INPUT ";Z$: IF 1 % = 

"" THEN 2I<58 

338 HOME : VTAB 7: PRINT T*(Z);" - 1WERSE : PRINT W(Z): 

NORMAL : PRINT : PRINT "INTRODUCI I DATI ESATTI";G$;: INPUT 
": "jPMZ): RETURN 

348 VTAB 23: FOR K = 1 TO 48: PRINT NEXT K: VTAB 1: FOR 
K = 1 TO 48: PRINT NEXT K 
358 FOR K = 1 TO 22: PRINT HTAB 48: PRINT NEXT K: 

RETURN i 

368 HOME : PRINT D$"CATALOG,S"SX;",D"DX 
378 PRINT : PRINT "NOME DEL FILE";G$;: INPUT •? "jFILE*: IF LEN 
(FILE*) = 8 THEN CLEAR : GOTO 588 
388 PRINT D$"OPEN";FILE$ ♦ BC$ 

398 PRINT D$ B READ";F1LE* 4 Btt 

488 INPUT NF: INPUT RL: DIM T$<2 * NF),TV(NF),P*(NF) 

418 FOR K = 1 TO NF: INPUT T*(K): INPUT TV(K): NEXT K 
428 PRINT W"CLOSE"FILE$ ♦ BC* 

438 RETURN 

448 PRINT W;"OPEN " ;FlLEi;",L";RL 
458 PRINT W;"READ";F1LE$j",R8" 

468 RETURN 

478 TX*(LX) = "": REM MIETETE TRA "" 

488 GET Tl$: PRINT TU;: IF TU = CHR* (13) THEN RETURN 
498 TX*(LX) = TX$(LX) 4 TU: GOTO 488 
588 REM ** SUBROUTINES SOPRA ** 

518 REM MENU 

528 VI = 8: DIM M*(V1):B$ = " ": REM 

38 SPAZI 

538 BC* = CHW <2):W = CHRI <4):G* = CHR$ (7):» = CHR* ( 
8):VU = CHR* <91>:V2* = CHR$ (93) 

548 TEXT : HOME : GOSUB 348 

558 AA* = "D A T A B A S E":AU = "M E N U": GOSUB 268: RESTARE 

568 FOR K = 1 TO VI: READ M$(K): NEXT K 
578 DATA "INIZ1ALIZZA2IONE NUOVO FILE","IMMISSIONE DATI","ST 
AMPA/VISUALIZZAZIONE DATI","CAMBIO/CANCELLAZ1 ONE DATI","R 
1 CERCA RECORDS" 

588 DATA "STAMPA ETICHETTE","CALCOLO SUBTOTALI","FINE PROGRA 
fttA" 

598 FOR K = 1 TO VI: VTAB (2 « K 4 4): HTAB 8: PRINT K;\ ";M 
*<K): NEXT K 

6?8 VTAB 22: HTAB 3: PRINT "SCEGLI INSERENDO UN NUMERO:";G*;V 
Uj" ";V2*;H$jH*;: NORMAL : GET Y$: PRINT Y$:Y = VAL (Y* 

): IF Y < 1 OR Y > VI THEN 688 

618 VTAB 2 » Y 4 4: HTAB 8: INVERSE ■: PRINT Y;". ";M$(Y): NORMAL 
: FOR KK = 1 TO 488: NEXT KK 
628 IF Y = 8 THEN 8888 

638 SX = PEEK (768):DX = PEEK (769): IF SX > 8 AND SX < 8 AND 


le. La sola restrizione è che si deve 
ricordare quali voci si vogliano intro¬ 
durre per ciascun campo doppio. «Ti¬ 
tolo» potrebbe significare «Dott.» o 
«Professor» o «Signorina» in una vo¬ 
ce, mentre nell’altra «Titolo» potrebbe 
voler dire «Vice-presidente per il mar¬ 
keting», «Direttore dei laboratori» o 
«Direttore commerciale». 

Vediamo tutte le informazioni che il 
Sistema Base ci consentirà di intro¬ 
durre per ciascun record, usando l’e¬ 
sempio 3 sopra indicato. 

Si noti come abbiamo definito l’uso 
del campo del Titolo nei due casi. 
Quando lo scopo è quello di stampare 
etichette per la posta si vuole che di¬ 
cano «Sig.ra Alice Biagiotti», e non 
«Direttore Commerciale Alice Bia¬ 
giotti». 

Si può scegliere di definire fino a un 
massimo di 16 campi. Inoltre ogni 
campo occuperà spazio di memoria 
sul dischetto e limiterà il numero dei 
record che si possono tenere su uno 
stesso dischetto. 

Quando avremo concluso la defini¬ 
zione dei campi del record del nostro 
data base il computer ci chiederà se ci 
piace l’impostazione del nostro record 
e poi ci chiederà di ratificare la nostra 
decisione. Se siamo d’accordo il pro¬ 
gramma continuerà a sviluppare la 
nostra struttura di record esclusiva, 
chiedendo la lunghezza di ciascun 
campo che abbiamo definito. Questo 
è un passo critico. Se si indica una 
lunghezza troppo esigua per un cam¬ 
po si può finire per troncare in futuro 
qualche immissione lunga; la scelta di 
una lunghezza eccessiva può spreca¬ 
re memoria sul dischetto. Per esem¬ 
pio se si permette che TITOLO con¬ 
tenga 20 caratteri ci starà per intero 
PROFESSORE ASSOCIATO. Ma se 
la maggior parte dei titoli introdotti sa¬ 
rà SIGNOR o SIGNORINA e via di¬ 
cendo si sciuperà un mucchio di spa¬ 
zio. È meglio tenere TITOLO più pic¬ 
colo, e abbreviare qualcuna delle im¬ 
missioni più lunghe. L’introduzione 
dell’indicazione della PROVINCIA 
può essere limitata a 2 caratteri, e il 


Segueapag. 16 
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Segue da pag. 15 

DX = 1 OR DX = 2 THEN 719 

648 7EXT : CALL - 936: VTAB 6: CALL - 958: PRINT 'I SLOT DE 
L DISCHETTO DEI DATI:';»;: 6ET SX^: PRINT SX4:SX = VAL 
(SX4) 

658 1F SX < I OR SX ) ? THEN 648 

668 VTAB 8: CALL - 868: PRINT ‘8 DRIVE DEL DISCHETTO DEI DAT 
1: *;G4;: 6ET DX4: PRINT DX4:DX = VAL <DX4> 

678 1F (DX - 1) * (OX - 2) < >8 THEN 668 
688 VTAB 18: CALL - 958: PRINT 'SLOT * ’jSX: PRINT ‘DRIVE 8 
*;DX: G0SU8 198: IF Y4 = ‘N* THEN 640 
698 IF Y4 ( > ‘S‘ THEN 648 
780 POKE 768,SX: POKE 769,DX 
718 UN Y GOTO 1800,2000,3080,4800,5060,6808,7880 
1808 REM **SU8R0UTINE DI INIZIALIZZAZIONE** 

1618 V = 16: REM V=NUMERO DEI TITOLI DE) CAMPI, NUMERO PARI. 

1020 DIM T4(V),T<2 * V),TV<2 * V) 

1038 FOR K = 1 TO V:74(K) = *‘: NEXT K:T4<8) = H4 ♦ Hi + K4 4 
H4 ♦ LEFT4 <B4,4> 

1858 TEXT : CALL - 936: PRINT ‘NOME DEL FILE‘;G4j: INPUT *? 
‘;FIlE4 

1668 CALL - 936: INVERSE : KTAB 13: PRINT ‘ÌN1ZIAL1Z2AZ]0NE‘ 

‘ 1078 HTAB (21 - LEN (FILE!) / 2): PRINT FILE»: POKE 34,3: NORMAL 

1886 HOME : PRINT ‘INTRODUCI I DATI IN IN FSBWO ORDINATO’: PRINT 
‘(CIOÈ’ IN CAMPI).*: PRINT ‘IL NUMERO DI CAMPI 01SP0NIBIL 
E E' ‘;VjV 
1085 N = 0 
1888 VTAB 8 

1098 FOR K = 1 TO V / 2: PRINT K;‘. ‘;T4(K>;: KTAB (28): PRINT 
K + V / 2\ *;T4(K ♦ V / 2): NEXT K: PRINT : PRINT 
1116 N = N ♦ 1 

1128 VTAB 28: CALL - 958: PRINT ‘NOME DEL CAMPO * ‘;N;G4: VTAB 
23: HTAB 18: G0SU8 250: VTAB 20: HTAB 28: INPUT ‘: *;Z4: IF 
N = I AND 2$ = ” THEN CLEAR : GOTO 588 
1138 1F li * " THEN 1168 
1140 T(N) = N 

1158 T4(N) = Hi GOTO 1088 
1168 HOME :N = N - 1 

1178 1F INT <N / 2) = N / 2 THEN N2X - N / 2 
1186 1F INT (N / 2) ( ) N / 2 THEN N2X = N / 2 ♦ 1 
1198 FOR K = 1 TO N2X 

1208 PRINT K{*. ‘;74(T(K))j: HTAB (21): PRINT K ♦ N2K;\ ‘;74 
(T(K ♦ N2X)): NEXT K 

1216 VTAB 22: CALL - 868: PRINT ‘CONFERMI (S/N) ‘jG*;: 6ET Y 
il PRINT Y4: IF Y4 = *N‘ THEN 1830 
1226 IF Y4 ( > ‘S* THEN 1210 

1230 CALL - 936: VTAB 4: PRINT ‘INTRODUCI LA LUNGHEZZA DI CI 
ASCUN CAMPO:'; 

1248 FOR K = 1 TO N 

1258 VTAB 6: CALL - 958: PRINT ‘PER IL CMPO 8 ‘;K;‘ <■;: INVERSE 
: PRINT T4(T(K));G4;: NORMAL : INPUT ‘): ‘;TV(K); NEXT K 
1268 TEXT : HOME : INVERSE : HTAB (28 - LEN (A4) / 2): PRINT 
A4: PRINT : PRINT : POKE 34,3: NORMAL 
1278 RL = 8: PRINT ‘8 NOME CMPO LUNGHEZZA CtflPO* 

1280 PRINT ‘.‘ 

1298 FOR K = 1 TO N 

1380 PRINT K;‘. HTAB 7: INVERSE : PRINT T4(T(K)); : NORMAL 
: HTAB 23: PRINT ‘ ‘;TV(K):RL = RL + TV(K) * 1: NEXT 
1316 VTAB 23: CALL - 868: PRINT ‘CONFERMI (S/N) ‘;64;: GET Y 
4: PRINT Y4: IF Y4 = ‘N‘ THEN 1238 


CAMPO # 

ESEMPIO 1 

1 

Nome completo 

2 

Indirizzo 

3 

Città 

4 

Provincia 

5 

CAP 

6 

Telefono 

7 

Commento 

8 

Codice Lavoro 

9 

Note 1 

IO 

Note 2 

11 

Lire 

12 



Figura 1 


CAP può essere di 5 caratteri. 

Quando avremo finito di scegliere la 
lunghezza di ciascun campo ci sarà 
permesso di verificare la descrizione 
completa del record. Se tutto è di no¬ 
stro gradimento le informazioni saran¬ 
no messe sul dischetto dei dati, e sarà 
inizializzato un file di dati con il nome 
da noi scelto in origine. Facendo il 
catalogo di questo dischetto si note¬ 
ranno due Text file apparentemente 
dello stesso nome. L’aspetto inganna 
in quanto quello che è protetto ha un 
carattere di controllo incorporato 
(CTRL-B) aggiunto alla fine. Questo 
file contiene le informazioni che ab¬ 
biamo appena salvato sul dischetto 
ed è automaticamente protetto. Una 
volta che è stato stabilito non deve 
essere cambiato, sotto pena della 
perdita di tutti i dati. Il file restante sarà 
il deposito dei nostri dati. E adesso 
che stiamo finalmente menzionando 
l’introduzione dei dati, incominciamo. 

L’introduzione 
delle liste 

Chiediamo da MENU l’opzione 2. 
Poi introduciamo il numero di slot/dri¬ 
ve del nostro dischetto dati. Il Catalo¬ 
go risultante ci permetterà di vedere 
quali file sono disponibili. Introducia¬ 
mo il nome del file voluto e premiamo 
RETURN. Se si preme RETURN sen¬ 
za introdurre il nome di un file verrà 
presentato di nuovo sullo schermo il 
MENU. Questo è utile da sapere, per il 
caso che si sia introdotto il numero di 
file sbagliato. Poi lo schermo visualiz¬ 
zerà il nome del nostro primo campo, 
con parentesi quadre spaziate di una 
data distanza. Lo spazio fra queste 
parentesi è uguale alla lunghezza pre¬ 
stabilita per quel campo. Le nostre im¬ 
missioni devono perciò rientrare in 
questi confini. Se si introducono dati 
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ESEMPIO 2 

ESEMPIO 3 

Cognome 

Società 

Prenome 

Titolo 

Iniziale 2° nome Nome 

Telefono 

Titolo 

Indirizzo 

Indirizzo 

Città 

Indirizzo 

Provincia 

Città 

CAP 

Stato 

Telefono 

CAP 

_ 

Telefono 

_ 

Commento 

— 

Codice 


Società 

ABC SpA 

Titolo 

Sig.ra 

Nome 

Alice Biagiotti 

Titolo 

Dir. Comm. 

Indirizzo 

Palazzo ABC 

Indirizzo 

Via Bianchi, 20 

Città 

Roma 

Stato 

Italia 

CAP 

00100 

Telefono 

06/31313131 

Commento 

10 Sett - Ultimo aum. 

Codice 

F/C/29 + 


che vanno oltre la parentesi destra si 
sarà informati che ciò che è stato im¬ 
messo è troppo lungo. Viene ricusata 
l'immissione e ci viene chiesto di rein¬ 
trodurre le informazioni. La pressione 
di RETURN per la prima voce metterà 
fine a questo modulo e ci riporterà al 
MENU principale. La pressione di RE¬ 
TURN per le introduzioni successive è 
una risposta valida, e vuol dire sempli¬ 
cemente che non si vogliono introdur¬ 
re dati per questo campo. 

Quando ciò che abbiamo immesso 
nel record ci soddisfa, i dati saranno 
scritti sul dischetto e sarà loro asse¬ 
gnato un numero specifico di record. 
(Questo numero di record può cam¬ 
biare se si usa l’opzione 4, «CAMBIA¬ 
RE/CANCELLARE DATI». Diremo al¬ 
tro in proposito più avanti). Adesso 
sjamo pronti a cominciare a introdurre 
una nuova serie d’informazioni o a 
mettere fine a questo modo d’immis¬ 
sione di dati. 

Se si fa un errore nell’introduzione 
dei dati basta tornare indietro fino al¬ 
l’errore e correggerlo. Se però l’errore 
viene scoperto dopo che si è premuto 
RETURN si ha un’altra opportunità di 
modificare ciò che è stato introdotto. 
Quando abbiamo immesso tutti i dati 
per un record ci viene chiesto se tutto 
è esatto. Adesso possiamo corregge¬ 


re 1F Yt < > ‘S‘ 7HEN 1318 

1339 PRINT WOPEN"jFILEf + B»;‘ ,S‘SX;‘,D"0X 

1340 PRINT WURITE'jFILEi * BC8 

1350 PRINT N: PRINT RL: FOR K = 1 TO N: PRINT T$<T<K>): PRINT 
TV(K): NEXT K 

1360 PRINT D$‘CLOSE‘;FILE$ ♦ BC$ 

1370 PRINT D*‘LOCK‘;FlLEf « BC$ 

1380 PRINT DI;‘OPEN ■ jFILES;*,L" ;RL 
1390 PRINT Mj'URJTE* ;FlLEf ,R0" 

1400 PRINT 8 

1418 PRINT Wj’CLOSE* jF!LE$ 

1420 CLEAR : GOTO 500 

2088 REM *** SUBR0UT1NE 1NTRODU210NE DATI *** 

2810 All = ‘ROUTINE INTRODUZIONE DATI 1 
2020 7EXT : HOME : GOSUB 260! HOME : GOSUB 360:RX = 0! GOSUB 
288 

2030 INPUT RECiREC = REC * 1 
2040 PRINT Wj'CLOSE* jFILEI 

2058 HOME ! PRINT : PRINT ‘QUESTO SARA' IL RECORD 0 ‘jREC 
2068 VTAB 23: PRINT ‘TORNA A ‘ : INVERSE : PRINT TKDjs NORMAL 
! PRINT * PER FINIRE': VTAB 8 
2870 FOR K = 1 TO NF 
2888 GOSUB 208 

2890 IF LEN <W<1» = é TH04 2280 
2180 1F LEN <P»<K» < = TV(K) 7HEN 2128 
2110 PRINT ‘INTRODOTTI DATI TROPPO LUNGHI 1 ;G8;GI: FOR KK = 1 TO 
758: NEXT KK: VTAB <CV ♦ Di HTAB 1: CALI - 958: GOTO 28 
80 

2128 NEXT K 

2130 GOSUB 190 

2148 1F Yl = ‘N* TKEN 2250 

2150 IF Yt < ) ’S‘ THEN 2138 

2168 RX = REC: GOSUB 228 

2170 FOR KK = 1 TO NF: PRINT PI(KK): NEXT KK 

2188 PRINT Wj‘CLOSE*;FlLEI 

2190 REC = REC ♦ 1: GOTO 2850 

2208 REC = REC - 1:RX = 8 

2210 GOSUB 228 

2228 PRINT REC 

2230 PRINT D$j‘CLOSE‘;FILEI 

2248 CLEAR : GOTO 588 

2250 GOSUB 318: PRINT NF ♦ 1;‘. *fWULLA*‘ 

2260 VTAB 23: KTAB 18: GOSUB 258: PRINT : VTAB 21: PRINT ‘INT 

ROOUCI 8 LINEA DEI DATI ERRATI 1 ;Glj: INPUT ‘: ‘;Z^:Z = WL 

(ZI) 

2270 IF ZI = " THEN 2168 

2288 IF Z = NF + 1 THEN 2858 

2298 IF 2 < 1 OR Z > NF THEN 2258 

2380 GOSUB 338: GOTO 2258 

3888 REM ***STAHPA/V1SUAL1Z2AZ1 ONE DATI*** 

3810 All = ‘STAMPA/VISUALIZZAZIONE 0ATI‘ 

3828 TEXT : HOME : GOSUB 268: HOME : GOSUB 368:RX = 8: GOSUB 
280 

3838 INPUT REC 

3848 PRINT W^CLOSE’jFILE* 

3858 HOME : VTAB 6: PRINT MNFORTOZIONI SULLA STMPMTE:’: PRINT 
: PRINT ‘MI UNA STMPWTE <S/N> *jGt;: GET Y$: PRINT Yl: 

IF Y8 = ‘N* THEN SLOT = 8: GOTO 3140 
3068 IF Y* < > ‘S‘ THEN 3050 

3878 VTAB 18: CALL - 868: PRINT ‘0 SLOT DELLA STAMPANTE : ‘;G 
I?: GET SU: PRINT SL$:SL0T = VAL (SU) 
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re gli eventuali errori introducendo pri¬ 
ma il numero di linea dei dati inesatti, 
poi la risposta giusta. Il procedimento 
è ad autodocumentazione ed è facile 
da seguire. 

Visualizzazione dei dati 

L’opzione 3 del MENU ci permette 
di visualizzare (sul monitor) o di stam¬ 
pare i dati attualmente memorizzati 
nel file del nostro dischetto. Si introdu¬ 
ca il numero di slot della stampante se 
si vuol avere una stampa dei dati. (Chi 
usa una routine di avvio della stam¬ 
pante dovrà modificare il programma 
in conformità con la sua specifica rou¬ 
tine di CALL). La terminologia impie¬ 
gata in questo programma è View (per 
visualizzare) e Print (per stampare), 
termini indicati rispettivamente intro¬ 
ducendo V o P. Si introduca il numero 
di record iniziale. Una volta recupera¬ 
to questo record si può richiamare il 
successivo record del file premendo 
la freccia-destra (—>), o il record pre¬ 
cedente premendo la freccia-sinistra 
(<h-). Se si vuol saltare qua e là dentro 
il file si prema ESC e poi il nuovo nu¬ 
mero di record voluto. La pressione di 
RETURN farà uscire questo schermo 
e presenterà nuovamente la decisio¬ 
ne View o Print. Premendo RETURN 
a questo punto si uscirà tornando al 
MENU principale. 

Cambiare/Cancellare 
i dati 

L’opzione 4 permette di aggiornare 
o modificare qualsiasi record sul di¬ 
schetto. Si può perfino cancellare un 
record se non serve più, ma per que¬ 
sto si deve conoscere il numero di 
record in questione. A ogni record vie¬ 
ne dato in origine un numero esclusi¬ 
vo (il suo numero di record) quando 
viene memorizzato la prima volta sul 
dischetto. Il numero di record può es¬ 
sere ottenuto da una stampa prece¬ 
dente o individuato con il ricorso al¬ 
l’opzione 3. Il programma procurerà il 
record e si potrà verificarne il numero. 
Adesso si può modificare, cancellare, 
oppure si può metter termine all’ope¬ 
razione. Se si vuole cancellare, se ne 
deve dare esplicita conferma. Si tratta 
di una tecnica di sicurezza: la cancel¬ 
lazione di dati per errore può essere 
un notevole fastidio. La cancellazione 
viene fatta recuperando l’ultimo re¬ 
cord del file e scrivendolo al posto del 
record cancellato e poi riducendo di 1 
il numero dei record. Per esempio se 
si vuole cancellare il record # 17 di 39 
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3860 1F Y* = CHRt (2?) OR Y* = CHR* (32) THEN CLEAR ! GOTO 
508 

3898 IF SLOT < J OR SLOT > 7 THEN PRINT G*;G*: GOTO 3878 
3180 PRINT : PRINT "ACCENDI LA STAMPANTE PER FAVORE.": PRINT 
"PREMI "; : INVERSE : PRINT "RETURN";: NORMAL : PRINT * QU 
WDO SEI PRONTO";G*;: INPUT \ ";Y* 

3118 PRINT D*"PR8";SL0T 

3128 PRINT 

3138 PRINT D*'PR88" 

3188 HOME : VTAB 22: KTAB 18: GOSUB 258: VTAB 7: PRINT 
3158 PRINT "VISUALIZZAZIONE 0 STAMPA DATI (V/S) ";G*;: GET VP 
*: PRINT VP*: 1F VP* = CHR* (13) THEN CLEAR : GOTO 588 
3168 PRINT : CALL - 958: PRINT "8 RECORD CON CUI C0M1CIARE"; 

INPUT ": START*:RX = VAL (START*) 

3178 IF RX > REC THEN PRINT : PRINT "SOLO ";REC;" RECORDS NE 
L FILE!";G*;G*: GOTO 3168 
3188 IF RX < 1 THEN RX = 1 
3198 GOSUB 288 

3288 FOR K = 1 TO NF: INPUT P*(K): NEXT K 
3218 IF VP* = "S" THEN PRINT D*"PRN";SL0T: PRINT : PRINT "RE 
CORD 8 ";RX 
3228 GOSUB 318 
3238 PRINT D*"PR08" 

3240 PRINT D*;’CLOSE";FILE* 

3258 VTAB 22: INVERSE : PRINT NORMAL : PRINT ■ = SUCC 

ESSIVO ";: INVERSE : PRINT NORMAL : PRINT " = P 

RECEDENTE": VTAB 23: PRINT "PREMI INVERSE : PRINT "ES 
C*;: NORMAL : PRINT • PER IL RECORD 8 "; TAB< 38);RXj" DI 
’ ’REC 

3268 GOSUB 258: PRINT 6*;: CALL - 868: GET Y*: PRINT Y*;: IF 
Y* = CHR* (3) THEN END 

3278 IF Y* = CHR* (27) THEN VTAB 23: CALL - 868: PRINT : PRINT 

TAB( 14)"8 DEL RECORD";G*;: INPUT ": ";RX: GOTO 3178 
3288 IF Y* = CHR* (8) THEN RX = RX - 2: GOTO 3328 

3298 IF Y* = CHR* (13) THEN 3148 

3388 IF Y* = CHR* (21) OR Y* = CHR* (32) THEN 3328 

3318 GOTO 3258: R01 ***** 

3328 RX = RX * ! : GOTO 3178 

4888 REM ***CAH810/CANCELLAZIONE DATI*** 

4818 Al* = "CAMBIO/CANCELLAZIONE DATI" 

4820 TEXT : HOME : GOSUB 268: HOME : GOSUB 360:RX = 8: GOSUB 
288 

4838 INPUT REC 

4848 PRINT D*;"CL0SE"jFILE* 

4858 HOME : VTAB 23: KTAB 18: GOSUB 258: VTAB 5: PRINT : PRINT 
"8 DEL RECORD DA CAMBIARE/CANCELLARE*;G*;: INPUT "? ";RD* 

4868 IF LEN (RD*) = 8 THEN CLEAR : GOTO 588 
4078 RD = INT ( VAL (RD*))i IF RD < =0 TH0( 4858 
4888 IF RD ( = REC THEN 4180 

4898 PRINT : PRINT "SOLO ";REC;" RECORDS NEL FILE!": PRINT : PRINT 
"PREMI RETURN PER CONTINUARE"G*;G*j: INPUT ". ";Y*: GOTO 
4858 

4188 RX = RD: IF RX ( = 8 THEN RX = 8 

4118 GOSUB 280: FOR K = 1 TO NF: INPUT P*(K): NEXT K 

4128 PRINT D*:*CL0SE";F1LE* 

4138 GOSUB 316 

4148 VTAB 28: CALL - 868: PRINT "CAHB10/CWCELLA21CWE DEL RE 
CORD 8 ";RD: VTAB 22: PRINT "CONFERMI (S/N) *;G*;: GET Y* 

: PRINT Y*: IF Y* = "N" THEN 4858 

4158 IF Y* ( > *S* THEN 4148 Segueapag.20 
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record, il computer richiama in memo¬ 
ria dal dischetto il record # 39 e poi lo 
riscrive sul disco nella posizione # 17. 
Il numero totale dei record viene ri¬ 
scritto sul dischetto come 38. Usando 
questa tecnica non sarà mai più possi¬ 
bile riprendere i record cancellati. Ora 
si può vedere come i record di dati 
possano cambiare il loro numero di 
record: il record # 39 è adesso il # 17. 

Se si tratta di fare cambiamenti e 
non di cancellare, si introduca il nume¬ 
ro corrispondente al campo giusto. Si 
faccia la correzione e si continui da 
quel punto. Quando sono state fatte 
tutte le correzioni si prema RETURN 
anziché battere un numero di linea per 
metter fine a questo cambiamento di 
record. Premendo ancora una volta 
RETURN si farà uscire il modulo. 

La stampa 

L’opzione 6 è il cuore del program¬ 
ma. Se è semplice da usare la si trove¬ 
rà però molto potente e piena di sor¬ 
prese. L’etichetta o comunque il re¬ 
cord che stampiamo può contenere 
qualunque campo di quelli che abbia¬ 
mo definito. E se si vuole essi posso¬ 
no essere ripetuti più di una volta. Il 
primo passo consiste nell’introdurre il 
numero corrispondente ai campi che 
si vuole siano stampati. Introducete 
questi numeri nell’ordine in cui volete 
vedere la stampa. Usiamo come gui¬ 
da l’esempio 3 e creiamo etichette co¬ 
sì impaginate: 

Sig.ra Alice Biagiotti 
Direttore Commerciale 
ABC SpA 
Via Bianchi, 20 
00100, ROMA 


Questa etichetta viene generata 
stampando i seguenti campi: 


Ordine 
di scelta 

Campo 

1 

2 

Titolo 

2 

3 

Nome 

3 

4 

Titolo 

4 

1 

Nome della società 

5 

6 

Indirizzo 

6 

9 

CAP 

7 

7 

Città 


Adesso che è stata determinata la 
scelta dei campi e così pure il loro 
ordine di stampa, il passo successivo 
è quello di stabilire se si vogliono uni¬ 
re assieme due o più campi su una 
sola riga. Nell’esempio abbiamo pri¬ 
ma unito Titolo e Nome completo per 
realizzare «Sig.ra Alice Biagiotti». 
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4148 VTAB 22: CALI - 848: PRINT 'CAMBIO 0 CANCELLAZJIM (1/2 
)? ’;GÌ;: GET Yi: PRINT Y* 

4178 IF Y* = CHR» (13) 7KEN 4858 
4188 IF Y$ = T THEN 4328 
4196 IF Y$ < > , 2' THEN 4148 

4288 VTAB 22: CALI - 848: PR1NT 'CONFERMI LA CANCELLAZIONE ( 
S/W'jG*;: INPUT ' ';YÌ: IF Y* < > *S' THEN 4858 
4218 IF RD ( > REC THEN 4258 

4228 RX = 8 :REC = REC - 1: GOSUB 238: PR1NT REC 
4238 PRINT Wj'CLOSE'jFILEi 
4248 GOTO 4858 

4258 RX = REC: GOSUB 288: FOR K = 1 TO NF: INPUT PÌ(K): NEXT K 
4248 PRINT Wi'CLOSE';FlLE* 

4278 RX = RD: GOSUB 228: FOR K = 1 TO NF: PRINT PÌ(K): NEXT K 
4288 PRINT Wj'CLOSE';FILE$ 

4298 REC = REC - 1 :RX = 8 : GOSUB 228: PRINT REC 
4388 PRINT Wj'CLOSE'jFILE* 

4318 GOTO 4858 

4328 REM «ROUTINE 01 CAMBIO** 

4338 VTAB 23: HTAB 18: GOSUB 258: PRINT : VTAB 22: CALL - 84 
8 : PRINT '8 DEL CAMPO DA CAMBIARE*;GÌ;: INPUT *: 'jY$:Y = 

VAL <Y 8 ): IF Y = 8 THEN 4398 
4348 IF INT (Y) ( 1 OR 1NT (Y) > NF THEN 4338 
4358 VTAB 22: CALL - 848: PRINT 'DEFINISCI IL CMPO ';: INVERSE 
: PRINT G*|T*<Y)ji NORML : INPUT ': ';P*<Y) 

4348 IF LEN <P»(Y)> ( = TV(Y) THEN 4388 
4378 VTAB 23: CALL - 848: HTAB 4: PRINT 'INTRODOTTI DATI TRO 
PPO LUNGHI !’;G*; 6 I: FOR KK = 1 TO 588: NEXT KK: VTAB 23: HTAB 
18: GOSUB 258: PRINT : GOTO 4358 
4388 GOSUB 318: GOTO 4338 

4398 RX = RD: GOSUB 228: FOR K = 1 TO NF: PRINT Pf(K): NEXT K 
4488 PRINT Wi'CLOSE';FILE* 

4418 GOTO 4858 

5888 REM ««MODULO DI RICERCA»* 

5818 Ali = 'RICERCA RECORDS'iBl* = 'RICERCA' 

5828 TEXT : HOME : GOSUB 248: HOME : GOSUB 348:RX = 8 : GOSUB 288 

5838 INPUT REC 

5848 PRINT D$;'CL0SE ':F1LEI 

5858 DIM SP$(NF),SERFLD(NF):N = 8 

5848 HOME : PRINT : PRINT *1 CMP1 SEGUENTI SONO DISPONIBILI 
PER LA ';81i;' DEI RECORDS:’: PRINT : FOR K = 1 TO NF STEP 
2: PRINT K;'. ';TÌ(K>j 7AB( 28);K t lj\ 'jTi(K ♦ 1): NEXT 

5878 FOR K = 1 TO NF: VTAB 28: HTAB 1 : CALL - 958: VTAB 24: HTAB 
18: GOSUB 258 

5888 VTAB 28: HTAB 1 : CALL - 848: PRINT '8 DEL ':K:'' CtfiPO 
IN CUI CERCARE';G$;: INPUT 'jSERFLW: IF SERFLDi = " ANO 
K = 1 THEN CLEAR : GOTO 588 
5898 IF SERFLDi = " THEN NP = K - 1:K = NF: GOTO 5138 
5188 SERFLD(K) = WL (SERFLDJ) : IF SERFLD(K) ( 1 OR SERFLD(K) 

> NF THEN 5888 

5118 VTAB 22: HTAB 1: CALL - 848: PRINT 'PARAMETRO DA CERCAR 
E'jG$j: INPUT ': ';SPf(K):SP = LEN (SPf(K)) 

5128 IF SP > TV(SERFLD(K» THEN VTAB 22: HTAB 4: CALL - 848 
: 1WERSE : PRINT 'PARAMETRO DI RICERCA TROPPO LUNGO!'; 

: NORMAL : FOR II = 1 TO 758: NEXT II: GOTO 5118 
5138 NEXT K: FOR li = 1 TO 388: NEXT 11 
5148 HOME : FOR K = 1 TO NP: VTAB (2 * K + 4): HTAB 1: PRINT 
•RICERCA NEL MMPO , ';TÌ(SERFLD(K»i' / DI '*ìSPÌ(K)j*' 

: IF K < NP THEN HTAB ( PEEK (34) ♦ 2): PRINT 'E *5 
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5158 NOTI K: PRINT 

5160 60SUB 198: 1F Yi = *N* THEN 5060 
5170 1F Yf < > *S* THEN 5168 
5188 PRINT Mi'OPEN * jFILE^ ; * ,L" ;RL 
5198 FOR K1 = 1 TO REC 
5288 SRFL = 0 

5218 PRINT Df; * READ *jFILEi;',R*;K1 
5228 FOR K = 1 TO NF: INPUT PÌ(K): NEXT K 

5238 FOR K = 1 TO NP 

5240 & PÌ(SERFLD(K)>,SPÌ<K) 

5250 1F PEEK (26) = 0 THEN K = NP:SRFL = 1 

5268 NEXT K: IF SRFL = 1 THEN 5418 

5278 PRINT Dij'CLOSE *;FILEÌ 
5280 N = N ♦ 1 : HOME : G0SU8 310 

5298 VTAB 21: HTAB li CALL - 868 : INVERSE : PRINT *-->*;: NORMAL 
: PRINT * PER CONTINUARE*j: HTAB 31: PRINT 'RECORD IP;: VTAB 
22: HTAB 1: CALL - 868 : INVERSE : PRINT "S'*:: NORMAL : 

PRINT * PER STAMPARE*; : HTAB 31: PRINT Kl;* OF *;REC; 

5308 VTAB 23: HTAB 1: CALL - 868 : INVERSE : PRINT *ESC*;: NORMAL 
: PRINT * PER FINIRE*;: GET 28: PRINT Zi;: IF Zi < ) *S* 

AND Zi < > CHI» (21) AND Zi < > CHI» (27) THEN 5388 

5318 IF Zi = CHI» (21) THEN 5408 

5328 IF Zi = CHI» (27) THEN K 1 = REC: GOTO 5416 

5338 HOME : PRINT : PRINT *8 SLOT DELLA STIPANTE* ;G^; : INPUT 
*: * ;SLOT 

5348 PRINT : PRINT ‘ACCENDI LÀ STMPMTE PER FAVORE.* 

5350 VTAB 23: HTAB 4: INVERSE : PRINT "QUANDO SEI PRONTO PRBI 
I UN TASTO *;: NORMAL : GET Zi: PRINT Zi 
5360 PRINT DÌ;*PR#*;SLOT 
5370 PRINT : PRINT 'RECORD « *;K 1 : 60SUB 318 
5380 PRINT Dij’PRUB* 

5398 GOTO 5298 

5408 PRINT M; * OPEN *;FILEÌ;*,L*;RL 
5418 NEXT K1 

5420 PRINT OÌ;*CLOSE ’jFlLEi 

5430 HOME : PRINT : PRINT 'RICERCA COMPLETATA*: PRINT : PRINT 
N;* RECORDS TROVATI’: VTAB 23: HTAB 10: GOSUB 258: GET Zi 
: PRINT Zi: CLEAR : GOTO 588 
6088 REM ***STAMPA ETICHETTE*** 

6810 Ali = ‘STAMPA ETICHETTE*:B1Ì = 'ETICHETTA* 

6028 TEXT : HOME : GOSUB 260: HOME : GOSUB 368:RX = 8 : GOSUB 
280 

6030 INPUT REC 

6848 PRINT DÌ;*CLOSE*;FILEÌ 

6058 Ti(NF ♦ 1) = Hi ♦ Hi ♦ Hi ♦ Hi + Bi: DIM TXÌ<2 * NF),TW(2 
* NF): FOR K = 1 TO NF:TXÌ(K) = CHI» (13): NEXT K 
6068 HOME :L = 0: PRINT : PRINT *1 CAMPI SEGUENTI SONO DISPON 
1B1LI PER LASTAMPA DELL'*;B1Ì; * : * : PRINT : FOR K = 1 TO N 
F STEP 2: PRINT K;\ *;TÌ(K); TAB( 28);K ♦ 1;*. *;Ti(K ♦ 

1): NEXT K 
6070 L = L ♦ 1 

6888 VTAB 23: HTAB 10: GOSUB 258: PRINT : VTAB 20: PRINT : CALL 
- 868 : PRINT *# CAMPO DA STAMPARE SULLA *;L;*' RIGA*;GÌ; 

: INPUT *: *;TVÌ: IF L = 1 AND LEN (TVi) = 8 THEN CLEAR 
: GOTO 588 

6098 IF LEN (TVi) = 8 THEN 6138 

6180 IF TVi = CHRi (21) OR TVi = CHI» (32) THEN CLEAR : GOTO 
58 0 

6118 TV = 1NT ( VAL (TV*)): IF TV ( 1 OR TV > NF THEN 608B 
6120 TW(L) = TV: GOTO 6878 

6138 HOME ìLINES = L - 1: PRINT : PRINT *LA TUA *;B1Ì;* SARA' 
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applicando viappiani 
1 — la via è più breve 





hai un appiè ? 
stai per acquistarlo? 



saprai allora che con il programma “Apple 
Writer” puoi usare il tuo computer per scrivere e 
redigere testi per la realizzazione di libri, 
depliants, riviste ecc. meglio che con qualsiasi 
macchina da scrivere. 


per stampare c’e’ viappiani 
un’industria grafica 
a tecnologia avanzata 


tu ci fornisci il disco con memorizzati i testi e noi lo 
transcodifichiamo direttamente in fotocomposizione, 
saltando così tutto il lavoro di ribattitura del testo ed 
i conseguenti errori. 

in breve tempo si passa alla stampa e quindi alla 
consegna degli stampati. 





è of m 







viappiani 


Tecnologie d’avanguardia Viale Argonne, 28 

Bruno Viappiani spa per stampati di qualità 20133 Milano 

Industria grafica e grandi tirature Tel. (02) 73.84.341 (5 linee r.a.) 









Inoltre abbiamo unito CAP e Città per 
fare l’ultima riga. Il programma chie¬ 
derà quali righe unire, e nel nostro 
caso dovremo dirgli di unire la riga 1 
alla riga 2. SI possono unire solo 
righe consecutive, per esempio non 
si può unire la riga 1 alla riga 3 ma solo 
alla 2. Per questa ragione si deve stu¬ 
diare l’ordine di stampa dei campi pri¬ 
ma di stabilirlo. La «congiunzione» 
che unisce la riga 1 alla riga 2 è uno 
spazio. Si prema la barra spazio per 
avere questa introduzione. Premendo 
RETURN diremo al computer che ab¬ 
biamo finito l’immissione della con¬ 
giunzione fra riga 1 e riga 2. Premen¬ 
do RETURN senza alcuna introduzio¬ 
ne si metterà fine al modo di unione 
dei campi fra loro. 

L’ultima riga dell’etichetta unisce 
CAP e Città con una virgola e uno 
spazio come congiunzione. Si ram¬ 
menti di premere RETURN quando si 
è finito di introdurre le congiunzioni 
per ciascuna immissione. E questa 
l’unica maniera in cui il computer sa 
che si è terminato. Quando abbiamo 
completato la definizione dell’impagi- 
nazione dell’etichetta, ne compare 
sullo schermo un campione per la sua 
verifica. 

Un’ultima osservazione sull’uso 
delle congiunzioni; si può impiegare 
come congiunzione quasi ogni combi¬ 
nazione di battute: lettere, numeri o 
simboli speciali. A noi la scelta nell’im- 
paginazione del rapporto stampato 
che desideriamo. 

L’ordinamento in stampa 

Il passo successivo è quello di sta¬ 
bilire in quale ordine vogliamo che sia¬ 
no stampate le etichette. Possono es¬ 
sere stampate in ordine sequenziale, 
come appaiono sul dischetto dei dati 
(record dopo record), oppure si può 
chiedere una stampa selezionata. Es¬ 
sa può essere molto utile se occorro¬ 
no etichette divise per città o per pro¬ 
vincia o per codice di avviamento po¬ 
stale, o comunque resoconti ordinati. 
Il parametro per l’ordinamento è il 
campo in base al quale si desidera 
che i record vengano ordinati. E può 
essere anche un campo di cui non si 
richiede la stampa: nell’esempio dato 
sopra si possono stampare se occorre 
le etichette ordinate per Codice, an¬ 
che se il Codice non è un campo stam¬ 
pato. 

Dopo aver preso queste decisioni 
introdurremo il numero di slot della 
stampante e il numero delle righe che 
desideriamo interporre come distanza 
fra le etichette, dalla sommità di un’eti- 
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FORMATA DA: - : PRINT 

6148 FOR K = 1 TO LINES: K7AB 16: PRINT K;\ , jT*<7W<K»s NEXT 
K: PRINT 

615B VTAB 23: PRINT •CONFERMI (S/N) ";6^;: GET Y$: PRINT Y*: 1F 
Y* = B N B THEN 6060 

6160 IF Y$ = CHR* (21) OR Y* = CHR* (32) THEN CLEAR : GOTO 
500 

6170 1F Y$ < > B S # THEN 6150 

6188 VTAB 23: CALL - 868: PRINT “VUOI INSERIRE DELLE CQNGIUN 
ZIONJ TRA DUECAMPI (S/N) B jG*j: GET Yi: PRINT Y$: 1F Yi < 

) B S B THEN 6308 

6198 FOR K = 1 70 NFiTXKK) = CURI (13): HEX7 K 
<5288 VTAB 21: CALL - 958: PRINT *E IL CAMPO 8 *: VTAB 23: HTAB 
10: GOSUB 258: PRINT 

6218 VTAB 28: PRINT ‘INSERIMENTO TRA IL CAMPO 8‘;GI;: CALL - 
868 : INPUT ' ‘;LXI: IF LEN (LXI) = 0 THEN 6380 
6228 REM 

6238 VTAB 23: CALL - 958:LX = VAL (LXI): IF LX < 1 OR LX ) 

LINES - 1 THEN PRINT ‘NON VALIDO!‘jGliGI: GOTO 6288 
6248 VTAB 21: HTAB 14: PRINT LX 4 1 

6258 PRINT ‘INTRODUCI CONGIUNZIONE *: IWERSE : PRINT ‘(SPAZI 
0 , i : / 4 .)'jGf;: NORMAL : PRINT *: ':: CALL - 868:TX 
KLX) = ■■: REM NIENTE TRA “ 

6268 GET TU: PRINT TU;: IF TU = CHRI (13) THEN 6288 

6278 TXKLX) = TXKLX) ♦ TU: GOTO 6268 

6280 VTAB 23: CALL - 868: PRINT TKTU<LX)) ;TXI(LX> ;7i(TW<LX ♦ 

1»: FOR K * 1 TO 1808: NEXT K 
6298 GOTO 6288 

6388 HOME : PRINT ; PRINT , L";BU;‘ AVRA' QUESTO ASPETTO:’: PRINT 

6318 FOR K = 1 TO LINES: PRINT TÌ(TW<K)>;TXÌ<K)}i NEXT K 
6328 VTAB 22: PRINT ‘CONFERMI (S/N) ‘;GÌ;: GET YI: PRINT YI: IF 
YI = ‘N* THEN 6068 
6338 ]F Yi < ) B S B THEN 6320 

6331 SRFL = 8: HOME : PRINT : PRINT ‘VUOI STAMPARE UN RECORD S 
PEC1F1C0? *;6I; : GET YI: PRINT YI: IF YI = ‘N‘ THEN 6342 

6332 IF YI < > ‘S‘ THEN 6331 

6333 SRFL = li HOME : PRINT : PRINT ‘I CMPI SEGUENTI SONO DJS 
PONI BILI PER LARI CERCA DEL RECORD: 1 : PRINT : FOR K = 1 TO 
NF STEP 2: PRINT K;\ 'jTi(K); 7AB( 28) ;K 4 1;\ ‘;TI(K 4 
1): NEXT K 

6334 VTAB 24: HTAB 9: GOSUB 258 

6335 VTAB 20: HTAB 1: CALL - 868: PRINT ‘8 DEL CAMPO IN CUI 
CERCARE’;Glj: INPUT ‘: *;SERFLDI: IF SERFLDI = THEN SR 
FL = 8: GOTO 6348 

6336 SERFLD = VAL (SERFLDI): IF SERFLD < 1 OR SERFLD ) NF THEN 
6335 

6337 VTAB 22: HTAB 1 : CALL - 868: PRINT ‘PARAMETRO DA CERCAR 
E*;GÌ;: INPUT •? ‘;SPÌ:SP = LEN (SPI) 

6338 IF SP > 7V<SERFLD) THEN VTAB 22: CALL - 868: PRINT ‘PA 
RAMETRO DI RICERCA TROPPO LUNGO !‘; : FOR II = 1 TO 750: NEXT 
li: GOTO 633? 

6339 FOR 11 = 1 TO 380: NEXT II: HOME : PRINT : PRINT ‘R1CERC 
A NEL CMPO / ‘;TI(SERFLD);‘ / DI '‘iSPi;*' ’: GOSUB 190: IF 
YI = ‘N* THEN 6331 

6348 IF YI ( ) ’S‘ THEN 6338 

6342 HOME : PRINT : PRINT ‘VUOI UNA RICERCA SEQUENZIALE <S/N) 

*;GI;: GET Yll: PRINT Yll: IF Yll ( > ’S’ THEN 6528 
6358 DIM SRTKREC) ,S0(REC) 

6368 HOME : PRINT : PRINT ‘1 CMP1 SEGUENTI SONO DISPONIBILI 
PER LARI CERCA SEQUENZIALE ALL'INTERNO DEL FILE’: PRINT : FOR 
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chetta alla sommità della successiva. 
Il computer inserirà il numero di Re¬ 
turn carrello occorrente perché ogni 
etichetta sia nella giusta posizione. 
Naturalmente non si possono stam¬ 
pare su un’etichetta più righe di quan¬ 
te essa ne possa contenere. Una 
stampa di 8 righe su un’etichetta da 6 
righe proprio non ci starà! L’ultima in¬ 
troduzione prima della stampa vera e 
propria consiste nello stabilire con 
quale numero di record cominciare. 
Questa decisione è necessaria solo 
se non si stampano record seleziona¬ 
ti. Le etichette saranno stampate co¬ 
me richiesto e poi il programma torne¬ 
rà al MENU principale. 

L’opzione 7, l’ultima, fa uscire il pro¬ 
gramma e rammenta all’operatore di 
fare una copia di scorta di qualsiasi 
dato sia stato introdotto. Questo è di 
importanza vitale, e vai bene la pena 
di impiegare i pochi minuti che occor¬ 
rono per copiare il dischetto dei dati. 
Anzi potrebbe addirittura esser cosa 
prudente fare più di una copia di riser¬ 
va, tanto per precauzione. 


Come funziona 
il Sistema Base 

Esaminiamo da cima a fondo il Si¬ 
stema Base per vedere come funzio¬ 
ni, e per avere idea di qualche rifinitu¬ 
ra intesa a farlo funzionare ancora 
meglio. La Linea 100 inizializza due 
locazioni di memoria le quali conter¬ 
ranno il numero di slot e drive che 
stiamo adoperando al momento. Le 
Linee 120-150 mettono sullo scher¬ 
mo la presentazione. Il programma 
salta poi a Linea 500, dove comincia¬ 
mo a definire la maggior parte delle 
costanti del programma. A Linea 530 
definiamo BC$=CTRL-B (da usare 
come appendice al nome del file), 
G$ = CTRL-G (campanello), 
H$=CTRL-H (ritorno di uno spazio), 
V1$=(parentesi quadra di sinistra) e 
V2$=(parentesi quadra di destra). 

La Linea 1000 dà principio alla su¬ 
broutine di inizializzazione. La variabi¬ 
le V a Linea 1010 indica il numero dei 
titoli di campo usati nel programma. 

La Linea 1070 è un’interessante 
routine per la centratura di una riga 
sullo schermo. L’istruzione POKE re¬ 
stringe la finestra in modo che le inte¬ 
stazioni non scorrano fuori dello 
schermo. La Linea 1120 permette di 
definire, con i nomi desiderati, i singoli 
campi. Una volta che sono stati defini¬ 
ti, tutti i campi ci vengono presentati 
tramite la Linea 1200. La linea suc¬ 
cessiva esige la verifica di questi cam- 
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K = 1 TO NF STEP 2: PRINT Kj\ ";T*(K); TAB< 20);K + I;’. 
";7*(K ♦ Di NEX7 K 

6378 PRINT : PRINT ’« DEL CAMPO CON CUI RICERCARE 1 ;G*;: INPUT 
’i ";SF*:SF = Wl (SF*)i IF SF < 1 OR SF > NF THEN 6368 
6388 PRINT : PRINT •*** RICERCA IN BASE AL CAMPO 1 ;s 1WERSE 
: PRINT T*(SF): NORMAL 

6398 PRINT : PRINT ‘RICERCA SEQUENZIALE ALL'INTERNO DEL FILE 1 
i PRINT 'ASCENDENTE 0 DISCENDENTE (A/D): 1 ;G*;: GET S*: PRINT 
SiiSl = (S$ = ‘A 1 ) 

6488 PRINT Mj’OPEN 1 ;FILE*;",L";RL 

6418 FOR K = 1 TO RECiRX = K: GOSUB 298: IF SF = 1 THEN 6438 

6428 FOR L = 1 TO SF - 1: INPUT ZI: NEXT L 

6438 INPUT SRT*(K):S0<K) = K: NEXT K 

6448 PRINT Wi'CLOSE’jFILE* 

6458 M = 1 

6468 M = 3 * M 4 1 : IF M < REC THEN 6468 

6478 M = <M - 1) / 3: IF M ( 1 THEN 6510 

6488 FOR J = M 4 1 TO RECìLL = J - M:SS* = SRT*(J):S = S0(J) 

6498 IF SI = <SRT*(LL) > SS*) THEN SRT*(LL + M) = SRT*(LL):S0 

(LL 4 M) = SO(LL):LL = LL - M: IF LL > 0 THEN 6490 

6580 SRT*(LL 4 M) = SS*:S0(LL 4 M) = S: NEXT J: GOTO 6478 
6518 REM ** LISTA DI ORDINAMENTO COMPLETA ** 

6520 HOME : PRINT : PRINT ’# SLOT DELLA STAMPANTE 1 ;G*;: INPUT 
•i * jSLOT 

6538 PRINT Dij’PR# 1 jSLOT 
6548 PRINT Dii’PRiT 

6558 PRINT : PRINT "QUANTE RIGHE BIANCHE TRA 1 ;Bl*j* E ';Bl*i 
"9‘jG*;: INPUT ';CR 

6568 HOME : PRINT : PRINT "ALLINEA LA CARTA. 1 i PRINT i PRINT 
"PREMI ";ì IWERSE : PRINT ■RETURN";i NORMAL i PRINT 1 QU 
ANDO SEI PRONTO.";: GET Y*: PRINT Y* 

6578 PRINT D*; 1 OPEN";FILE*;",L 1 ;RL 

6588 IF Yl* < > "S* THEN 6618 

6598 FOR K1 = 1 TO RECiRX = S0(Kl)i GOTO 6698 

6688 GOTO 6660 

6610 HOME i VTAB 23: HTAB 18: GOSUB 258: PRINT : VTAB 12: CALL 
- 868: PRINT *8 RECORD CON CUI COMINCIARE*;G*j: INPUT ': 
";RX*tRX = VAL <RX*)i IF LEN (RX*) = 8 THEN CLEAR : GOTO 
580 

6628 IF RX < = REC THEN RX = RX - 1 : HOME : GOTO 6648 
6638 PRINT "SOLO "jREC; 1 RECORDS NEL FILE.";G*;G*: FOR KK = 1 
TO 488: NEXT KK: GOTO 6568 
6648 RX = RX 4 1: IF RX < 1 THEN RX = 1 
6658 IF RX < = REC THEN 6698 
6668 PRINT D*;"CLOSE*;FILE* 

6678 PRINT "FINE DEL FILE! 1 ;G*;G* 

6688 PRINT : PRINT "PREMI ";: IMMERSE : PRINT "RETURN 1 ;: NORMAL 
: PRINT 1 QUANDO SEI PRONTO 1 ; : GET Y*: PRINT Y*: RUN 508 

6690 GOSUB 290: FOR K = 1 TO NF: INPUT P*(K): NEXT K 
6692 IF SRFL = 8 THEN 6788 
6694 & P*(SERFLD),SP* 

6696 IF PEEK (26) = 8 THEN 6788 
6780 PRINT Dli'PR# 1 jSLOT 
6718 RI s 8 

6728 FOR K = 1 TO LINES: IF LEN <P*(7W<K)>) = 8 THEN 6748 
6730 PRINT P*<TU(K));TX*(K);: IF LEN (P*(TW(K))) ( > 8 #«) 

7X*(K) = CMR* (13) THEN RI = RI 4 j 
6748 NEXT K 

6758 IF CR = 8 THEN 6778 

6760 FOR K = 1 TO CR - RI: PRINT : NEXT K Segueapag 27 
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pi. Si noti che la Linea 1210 impiega la 
funzione GET. Ogni volta che si usa 
un GET lo si deve sempre far seguire 
da un’istruzione di print, altrimenti il 
DOS si confonderà. Le Linee 1230- 
1320 richiedono che si definiscano ul¬ 
teriormente i campi, introducendo la 
loro lunghezza e poi ratificando la 
struttura totale del record. 

Se la struttura è accettabile viene 
scritta sul dischetto tramite le Linee 
1330-1370. Si tratta di un file sequen¬ 
ziale con il CTRL-B aggiunto alla fine 
del nome. Viene avviato anche un file 
ad accesso casuale con l’indicazione 
di zero record. Adesso l’inizializzazio- 
ne è completata e torniamo al MENU. 

L’introduzione dei dati comincia a 
Linea 2000. Viene aperto il file casua¬ 
le e letto il numero dei record residenti 
al momento nel file (REC variabile). 
Le subroutine in locazione nelle Linee 
200-210 accettano i nuovi dati e li re¬ 
stituiscono in una matrice contraddi¬ 
stinta da R$. Si noti che la Linea 2090 
controlla se ci sia stata un’introduzio¬ 
ne per la prima posizione di P$ 
(P$(1 )). In caso negativo l’introduzio¬ 
ne dei dati è completata e si torna al 
MENU. Se c’erano dati introdotti la 
loro lunghezza viene controllata (Li¬ 
nea 2100) per accertare che non sia¬ 
no troppo lunghi. Se non lo sono l’inte¬ 
ra matrice sarà presentata sullo 
schermo per la verifica prima di esse¬ 
re scritta sul dischetto. In questa fase 
di verifica si può modificare qualsiasi 
riga che sia inesatta, o annullare l’inte¬ 
ra introduzione. Una volta che si è 
accettato ciò che è stato digitato esso 
viene scritto sul dischetto, e poi si è 
ricondotti al modo d’immissione dati. 

Il modo Cambiare/Cancellare ha 
inizio a Linea 4000. Si dice al compu¬ 
ter quale record si vuol modificare ed 
esso viene richiamato dal dischetto e 
presentato sullo schermo (Linee 
4050-4130). A questo punto si può 
cambiare o cancellare questa voce, 
oppure annullare l’operazione. La Li¬ 
nea 4200 esige la conferma per la 
cancellazione, come misura di sicu¬ 
rezza. Se la conferma c’è, viene letto 
in memoria l’ultimo record del file (Li¬ 
nea 4250), che poi è scritto sul di¬ 
schetto al posto di quello che si vuole 
cancellare (Linea 4270). Il numero to¬ 
tale dei record viene diminuito di uno e 
anche questo nuovo valore viene 
scritto sul dischetto (Linea 4290). A 
questo punto si è ricondotti all’opzione 
Cambiare/Cancellare per trattare altri 
record. 

Il cambiamento dei record ha ini¬ 
zio sulla Linea 4330. Questa linea 
chiede che si introduca il numero della 


Segue da pag. 24 

6778 PRINT D*}"PR88" 

6780 IF YU < > , Y B THEN 6640 

6798 NEXT KJ : GOTO 6668 

7800 REM ** CALCOLO SUBTOTALI ** 

7818 AI* = * CALCOLO SUBTOTALI" :Btt = "SUBTOTALI" 

7028 TEXT : HOME : GOSUB 268: HOME : GOSUB 368:RX = 8: GOSUB 
288 

7838 INPUT REC 

7848 PRINT Mj'CLOSE ";FILE$ 

7850 DIM SP$(NF),SERFLD<NF) 

7868 HOME : PRINT : PRINT "LE RIGHE SEGUENTI SONO DISPONIBILI 
PER I ";B1$;":": PRINT : FOR K = 1 TO NF STEP 2: PRINT 
Kj". *;T*(K); TAB< 28);K 4 J;\ ";T*(K 4 J) : NEXT K 
7878 VTAB 24: HTAB 10: GOSUB 258 

7880 VTAB 28: HTAB 1: CALL - 868: PRINT "8 CtflPO DI CUI TRW 
ARE IL SUBTOTALE";G*;j INPUT ": ";ST*: IF ST* = "" THEN CLEAR 
: GOTO 588 

7898 ST = VAL (ST*): IF ST < 1 OR ST > NF THEN 7888 
7188 FOR Il = 1 TO 388: NEXT II:SRFL = 8 
7118 HOME : PRINT : PRINT "VUOI IL SUBTOTALE DI ALCUNI RECORD 
PRINT "SPECIFICI? ";G*;: GET Y*; PRINT Y*;: IF Y* = "N 
' THEN 7268 i 

7128 IFY*( > "S" THEN 7110 
7138 SRFL = 1 

7148 HOME : PRINT : PRINT "1 CMP1 SEGUENTI SONO DISPONIBILI 
PER LA RICERCA DEI RECORD CHE INTERESSANO:": PRINT : FOR 
K= 1 TONF STEP 2: PRINT K;\ ";T*<K); TAB( 28);K 4 1 ;■. 

";T*(K 4 1): NEXT K 

7158 FOR K = 1 TO NF: VTAB 28: HTAB 1: CALL - 958: VTA8 24: HTAB 
18: GOSUB 258 

7168 VTAB 28: HTAB 1: CALL - 868: PRINT "8 DEL ";K; §/ CAMPO 
IN CUI CERCARE";G*;: INPUT ": "jSERFLD*: IF SERFLD$ = AND 
K = 1 THEN SRFL = 8: GOTO 7268 
7178 IF SERFLD* = "" THEN NP = K - 1:K = NF: GOTO 7218 
7188 SERFLD(K) = VAL (SERFLD*): IF SERFLD(K) < 1 OR SERFLD(K) 

> NF THEN 7160 

7198 VTAB 22: HTAB 1: CALL - 868: PRINT "PARAMETRO DA CERCAR 
E";G*;: INPUT ■? ";SP*(K):SP = LEN <SP*(K)> 

7288 IF SP > TV(SERFLD(K)) THEN VTAB 22: HTAB 1: CALL - 868 

: INVERSE : PRINT "PARAMETRO DI RICERCA TROPPO LUNGO 1 ";: NORMAL 
: FOR II = 1 TO 758: NEXT II: GOTO 7198 
7218 NEXT K: FOR 11 = 1 TO 388: NEXT II 
7228 HOME : FOR K = 1 TO NP: VTAB (2 * K 4 6): HTAB 1 : PRINT 
"RICERCA NEL CAMPO /B ;T*<SERFLD<K));"' DI jSPMK);"'";: 

IF K < NP THEN HTAB < PEEK (36) 4 2): PRINT "E"; 

7238 NEXT K: PRINT : GOSUB 198 

7248 IF Y* = "N" THEN 7148 

7252 IF Y* < ) "S" THEN GOSUB 198: GOTO 7248 

7268 PRINT D*;"0PEN ";F1LE*;",L";RL 

7278 FT = 8 

7288 FOR K1 = 1 TO REC 

7298 PRINT D$;"READ "sFlLE$; , ,R"iKl 

7388 IF SRFL = 1 THEN 7348 

7318 PRINT D*;"P0S1TI0N 1 ;F1LE*;",R";<ST - 1) 

7328 PRINT D*;"READ "jFILE* 

7338 INPUT P*(ST>: GOTO 7488 

7348 FOR K = 1 TO NF: INPUT P*(K): NEXT' K 

7358 FL = 8 

7368 FOR K = 1 TO NP 

7378 * P*(SERFLD(K)),SP*(K) 

7388 IF PEEK (26) = 0 THEN K = NP:FL = 1 Segueapag. 28 
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linea da modificare. La Linea 4350 ac¬ 
cetta i dati corretti e la loro lunghezza 
è controllata dalla Linea 4360 per ac¬ 
certare che non siano troppo lunghi. 
Se tutto va a dovere è scritto sul di¬ 
schetto dalla Linea 4390 e si è riportati 
ancora una volta all’opzione Cam¬ 
biare/Cancellare. 

La routine di Etichetta ha inizio sul¬ 
la Linea 6000. I campi disponibili per 
la stampa vengono presentati sullo 
schermo dalla Linea 6060. Decidiamo 
quali righe vogliamo sull’etichetta e le 
introduciamo tramite la Linea 6080. 
La Linea 6090 controlla se ci sia una 
introduzione nulla (un semplice C/R) 
la quale significa che abbiamo com¬ 
pletato l’introduzione dei campi per la 
stampa. Le Linee 6130-6140 stampa¬ 
no i campi appena scelti per consen¬ 
tirci di verificarli. 

Adesso ci viene chiesto se voglia¬ 
mo unire assieme i nostri campi (Li¬ 
nea 6180). In caso affermativo viene 
inizializzata una matrice TX$ perché 
contenga tutti i Return carrello (Linea 
6190). Questo parametro sarà stam¬ 
pato dopo la stampa di ciascuna voce 
dei dati. In questa maniera stampere¬ 
mo un elemento, un Return, poi l’ele¬ 
mento successivo. Ma qualora TX$ 
assuma valori diversi da un C/R si 
possono verificare, e in effetti si verifi¬ 
cano, risultati «interessanti». Vedia¬ 
mo come può essere. 

La Linea 6250 richiede che si intro¬ 
ducano le congiunzioni che uniranno 
insieme due campi. Ogni introduzione 
è ricevuta dal computer come T1 $ (Li¬ 
nea 6260) e comparata con un C/R 
(CHR$(13)). Se non è un Return è 
concatenata con TX$ e si torna per 
altre congiunzioni e ulteriori concate¬ 
namenti se necessari. 

Il risultato finale è un elemento di 
matrice TX$ che contiene tutte le let¬ 
tere, numeri o simboli speciali che si 
vogliono usare per unire insieme due 
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La routine di search 


introduzioni, con a seguito un Return. 
Sullo schermo viene presentata un’e¬ 
tichetta di campione in modo che si 
possa ora vedere compiutamente 
rimpaginazione fatta (Linee 6300- 
6330). 

Il passo successivo nella stampa 
delle etichette consiste nel decidere 
se si vogliono etichette messe in ordi¬ 
ne. In caso affermativo vengono di¬ 
mensionate nella Linea 6350 due ma¬ 
trici che conterranno il campo di ordi¬ 
namento (SRT$) e l’ordine della sua 
posizione di «sort» (SO). L’ordina¬ 
mento può essere ascendente o di¬ 
scendente. La variabile SI sulla Linea 
6390 sarà un 1 se ascendente, altri¬ 
menti è 0. SI è usato come «interrut¬ 
tore» nella routine di ordinamento che 
segue. Ogni record viene letto in me¬ 
moria, ma solo il campo di ordinamen¬ 
to è trattenuto nella matrice SRT$ (Li¬ 
nee 6400-6440). La routine di ordi¬ 
namento è in locazione nelle Linee 
6450-6500. È un sort Shell rapido. 


Segue da pag. 27 

7398 NEX7 K: 1F FL = 1 THEN 7418 
7488 FT = FT ♦ VAL (P$(ST)) 

7418 NEXT K1 

7428 PRINT D*; B CLQSE ’jFILE* 

7438 HOME : PRINT i PRINT “IL TOTALE DEL CAMPO /B ;T$(ST)i #/ E 
' B ;FT 

7448 VTAB 24: KTAB 18: GOSUB 258: GET Y il PRINT Y*;: GOTO 786 
8 

8888 REM ««sSUBROUTINE DI FINE PR06RAM1A*** 

8818 FOR K = 1 TO 188: NEXT K: TEXT : HOME : PRINT "NON DJMEN 
TI CARE DI FARE m COPIA DI 1 : PRINT "RISERVA DEI TUOI DA 
TI. B ;G$;G$;G$: PRINT : PRINT "BU0M GIORNATA!!" 

8828 END 


5 1983 by Nibble e Applicando 
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gv)J£^ Non si è trattato di una semplice 

traduzione dall’inglese: un linguaggio ha 
le sue regole da adottare, i suoi significati da ricostruire. 
Ma alla Mondadori... 


Logo in italiano 


L OGO comincia con una favola, e 
arriva... all’università: è una frase 
che ripeto spesso, e che è diventata 
quasi uno slogan. È un modo molto 
comodo e efficace per presentare 
questo linguaggio pedagogico a chi 
non ne ha mai sentito parlare. LOGO 
infatti può essere usato dai bambini fin 
da quando riescono a mettere le mani 
sulla tastiera e crescere con loro ac¬ 
compagnandoli nello studio delle ma¬ 
terie più diverse. È uno straordinario 
compagno di giochi con il quale i bam¬ 
bini insegnano a un piccolo robot, che 
compare sullo schermo, a fare qual¬ 
cosa. «Impariamo di più quando dob¬ 
biamo inventare», diceva Jean Pia¬ 
get, e i bambini imparano di più e più in 
fretta proprio perché devono fare, in¬ 
ventare e insegnare qualcosa a que¬ 
sto loro compagno di giochi. 

Il robot si chiama tartaruga e i bam¬ 
bini, in gruppo o da soli, imparano a 
comandarlo facilmente; a volte anche 
uno di loro può giocare a fare la tarta¬ 
ruga. In uno spazio geometrico deter¬ 
minato, che può essere un foglio, una 
stanza o un’aula la tartaruga va avan¬ 
ti, indietro, gira a destra o gira a sini¬ 
stra spostandosi secondo misure che 
i bambini stessi determinano sui qua¬ 
dretti del foglio o sulle piastrelle del 
pavimento. Poi il computer mangia la 
tartaruga che compare sullo schermo. 
Da questo punto in poi usando sem¬ 
pre gli stessi comandi «avanti», «in¬ 
dietro», «destra» e «sinistra», i bam¬ 
bini inventano le forme geometriche 
più diverse e la tartaruga le traccia. 
LOGO cresce a mano a mano che i 
bambini insegnano al robot a fare 
qualcosa e imparano con lui. Così ar¬ 
rivano all’università. Infatti, disegnan¬ 
do, progrediscono di continuo nelle 
difficoltà. 

Un esempio tra mille: il bambino di¬ 
segna un semplice quadrato, (avanti 
di 50, destra di 90 e cosi via per altre 
tre volte), poi può costruire un quadra¬ 
to di lato I, poi un poligono, per poi 
passare ai giochi di parole, e così via. 
Impara, senza rendersene conto, a 





programmare secondo una logica che 
è quanto di più avanzato ci sia in cam¬ 
po informatico, la logica della pro¬ 
grammazione strutturata; ma natural¬ 
mente non se ne rende conto: sempli¬ 
cemente impila programmi uno sull’al¬ 
tro, chiamandoli con nomi diversi. 
Tecnicamente si dice che usa delle 
funzioni primitive per creare delle pro¬ 
cedure, per poi usare queste procedu¬ 
re come primitive. Un giorno si troverà 
davanti a linguaggi più complessi e 
strutturati, come ad esempio il Pascal, 
e si renderà conto di possedere di già 
la chiave del metodo di programma¬ 
zione. 

Passare da LOGO a Pascal può es¬ 
sere cosa di qualche mese, mentre 
per altri che ci arrivano direttamente 
richiede più tempo. Tutta questa sem¬ 
plicità naturalmente ha richiesto anni 
di lavoro e fatiche difficilmente riassu¬ 
mibili in poche righe. Seymour Papert, 
il principale artefice di LOGO, sintetiz¬ 
za questo sforzo e queste esigenze in 
una frase ormai famosa che fu assun¬ 
ta come postulato di base dal gruppo 


che progettava il linguaggio presso il 
laboratorio di intelligenza artificiale 
del MIT: «Non devono essere gli ela¬ 
boratori a programmare i bambini, ma 
devono essere i bambini a program¬ 
mare gli elaboratori». Sembrava una 
affermazione irraggiungibile alla metà 
degli anni ’60. Ma dopo dieci anni di 
ricerca arrivò LOGO che funzionava 
sui grandi elaboratori, e qualche anno 
dopo arrivarono i personal computer 
che permisero di portare LOGO in tan¬ 
te scuole e in tante famiglie. 

Ma LOGO è in lingua inglese, natu¬ 
ralmente. Poiché non si può pensare 
che bambini che riescono appena a 
compitare delle parole imparino l’in¬ 
glese (non tanto per battere i comandi 
principali del linguaggio, come FOR- 
WARD (FD), BACK (BK), RIGHT 
(RT), LEFT (LT), ma piuttosto per de¬ 
cifrare i messaggi di errore o il manua¬ 
le) è sorta subito l’esigenza di rendere 
LOGO in italiano. Il compito non è faci¬ 
le: non è un problema di pura e sem¬ 
plice traduzione. Poiché si tratta di un 
linguaggio, le esigenze da rispettare 
sono molteplici. Intanto bisogna assi¬ 
curare che la traduzione abbia un si¬ 
gnificato universale, e poi, le parole 
tradotte devono essere altrettanto 
funzionali di quelle della lingua ingle¬ 
se. Ad esempio, non devono celare 
ambiguità e devono avere un signifi¬ 
cato univoco per tutti. Chi scorre le 
ultime pagine del manuale del LOGO 
della Apple si rende immediatamente 
conto della complessità del problema. 
Problema che è stato superato dalla 
Arnoldo Mondadori Editore che, di re¬ 
cente, ha firmato un contratto con la 
Apple per la traduzione di APPLE LO¬ 
GO in lingua italiana. Questa versione 
di LOGO sarà disponibile con il gen¬ 
naio 1984. I problemi che sono stati 
superati non sono di poco conto, data 
anche la diversità e la ricchezza di 
sfumature della nostra lingua, ma ora 
il lavoro è completato e si sta passan¬ 
do, dopo la fase dello studio, alla rea¬ 
lizzazione industriale. 

Egidio Pentiraro 
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Una scheda da inserire possibilmente 

. nello slot 3. E una telecamera. 

Così il vostro Apple acquista 

anche la vista... 


S i chiamaTelerastered è il sistema 
più rapido ed efficace disponibile 
in Italia per applicare un... occhio al 
vostro Apple. Attenzione, però: se 
avete un Apple II Europlus non ci sono 
problemi; ma se disponete del nuovo 
Apple Ile rischiate di incontrare qual¬ 
che difficoltà. Per il momento infatti 
ri/O della scheda prevede il montag¬ 
gio dell’interfaccia nello slot 3, opera¬ 
zione impossibile nell’Apple Ile a cau¬ 
sa dello slot supplementare (inesi¬ 
stente nell’Apple II Europlus) predi¬ 
sposto per ospitare l’espansione di 
memoria e le 80 colonne. L’impossibi¬ 
lità meccanica di inserire la scheda 
nello slot, superabile con qualche ac¬ 
corgimento (per esempio un cavo ap¬ 
positamente studiato e munito di spi¬ 
na e presa adatte), dà però fastidio 
solo se si intende usare il Teleraster 
con il dischetto-programma che viene 
fornito dalla Pertel, distributrice del 
Teleraster. Ne deriva che appena la 
Pertel modificherà il programma in 
modo che l’I/O possa funzionare an¬ 
che dallo slot 2 o dallo slot 4, dove la 
scheda entra benissimo, tutto funzio¬ 
nerà a meraviglia. 

Dunque, cos’è Teleraster? La sche¬ 
da è nata per poter collegare una tele- 
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Scattando 

computerfoto 


camera all’Apple e consente di me¬ 
morizzare le immagini riprese e resti¬ 
tuirle su carta tramite una stampante 
grafica ad alta risoluzione. A cosa ser¬ 
ve? È solo un problema di fantasia: c’è 
chi l’ha comprata (costa 655 mila lire) 
solo per... applicazioni artistiche e si 
accontenta di scattare immagini da 
mostrare agli amici; e c’è invece chi ne 
fa un uso industriale: per esempio per 
far calcolare al computer l’area di usu¬ 
ra dell’utensile di un tornio a controllo 
numerico. Per coloro che fanno largo 
uso di grafica in alta risoluzione può 
essere una manna piovuta dal cielo. 
Immaginiamo infatti, per esempio, un 
programma didattico mediante il qua¬ 
le si debbano mostrare ai bambini de¬ 
gli oggetti: ecco che riprenderli con la 
telecamera anziché disegnarli... 

Ma c’è di più: poiché i comandi di 
Basic necessari per scattare una 
computer foto sono sintetizzati da 
questo miniprogramma: 

10 PR # 3 
20 PRINT ”!” 

30 END 

mentre per far apparire sullo schermo 
rimmagine graficà basta l’istruzione 
ecco che qualunque programma 
in Basic può facilmente dialogare con 
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AZIENDE 


PROFESSIONISTI 

PROGETTISTI 

SCUOLE 

HOME E HOBBY 
E... 

Più linguaggi di program¬ 
mazione (Pascal, Basic e- 
steso Applesoft, Integer 
basic, Monitor e fìssem- 
bler) 

- Memoria RAM fino a Ó4 
Kbytes 

- Grafici a colori ad alta 
risoluzione 

- Aoppy-Disks e due si¬ 
stemi operativi su disco, 
come nei grondi sistemi 

- Tavoletta grafico inte¬ 
rattivo 

- Interfacce intelligenti di 
tipo parallelo, seriale e 
per comunicazioni 


Distribuzione per l'Italia 



■ nc 

■ 

l INFORMATICA 

/ 



F.B.M. Via Flaminio, 395 
Roma - tei. 06 399279 / 3960152 

soia di 

esposizione permanente 


la scheda Teleraster, e ciascuno può 
costruirsi il suo software assoluta- 
mente su misura. L’istruzione 10 ov¬ 
viamente fa riferimento allo slot in cui 
è stato inserito il Teleraster. Chi pos¬ 
siede un Apple Ile con scheda inserita 
nello slot 4 userà PR # 4. 

Per chi può inserire il Teleraster nel¬ 
lo slot 3, ecco invece il menù del pro¬ 
gramma già pronto che la Pertel forni¬ 
sce assieme al Teleraster: 

1 - Ripresa da telecamera 

2 - Stampa disegno 

3 - Windowing 

4 - Caricamento da disco 

5 - Recovery da disco 

6 - Reverse disegno 

7 - Visualizzazione disegno 

Alla scheda sono collegati due con¬ 
nettori. Il primo, VIDEO IN, va collega¬ 
to alla telecamera, e il secondo, VI¬ 
DEO OUT, a un monitor o a un norma¬ 
le apparecchio televisivo, sul quale si 
vedrà l'immagine non ancora digitaliz¬ 
zata, così come esce dalla telecame¬ 
ra. Questo monitor non è strettamente 
indispensabile, anche se può rivelarsi 
utile per la messa a fuoco e la compo¬ 
sizione deH’immagine: la scheda Te¬ 
leraster funziona anche senza, facen¬ 
do apparire direttamente le immagini 
digitalizzate sullo schermo dell’Apple. 
D’altra parte è possibile utilizzare an¬ 
che lo stesso monitor del computer, 
staccandolo dall’Apple e collegandolo 
al connettore della scheda durante la 
fase di messa a fuoco e composizio¬ 
ne, per poi ricollegarlo a Apple al mo¬ 


mento dello scatto vero e proprio della 
computerfoto. 


La scheda 


La scheda Teleraster è direttamen¬ 
te compatibile, meccanicamente ed 
elettricamente, con il bus dati e indiriz¬ 
zi dell’Apple II. Ciò significa che può 
essere inserita in uno degli slot, come 
una qualunque delle interfacce pro¬ 
gettate per l’Apple II. Tramite questi 
collegamenti la scheda preleverà le 
alimentazioni necessarie per il suo 
corretto funzionamento, e potrà 
scambiare le informazioni sotto il con¬ 
trollo della CPU 6502, che seguirà il 
programma scritto sulla EPROM 
2708, presente sulla scheda, quando 
questa verrà indirizzata. 

Dell’adattamento con il bus dei dati 
e degli indirizzi, si occupa un integrato 
particolare, il 6821. Questo è un PIA, 
cioè un Parallel Interface Adaptor, che 
ha la possibilità di essere programma¬ 
to a lavorare con quattro registri I/O di 
8 bit ciascuno. Su questi registri flui¬ 
ranno sia le informazioni relative al 
campionamento eseguito dalla parte 
analogica della scheda sul segnale vi¬ 
deo proveniente dalla telecamera, 
che le informazioni provenienti dalla 
CPU, necessarie a controllare le ope¬ 
razioni di campionamento. 

La parte analogica si occuperà di 
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PROGRAMMI di matematica e statistica 

Leggendo questo libro il lettore potrà formarsi quella logica di 
base indispensabile per la risoluzione di problemi di matemati¬ 
ca e statistica. 

Ad ogni programma viene preposta un’esposizione schemati¬ 
ca del metodo numerico e delle tecniche di programmazione 
utilizzate, il diagramma a blocchi relativo all’algoritmo, il li¬ 
stato (anch’esso ottenuto da calcolatore) in cui tra l’altro ven¬ 
gono specificati il tempo e la quantità di memoria impiegati. 

Cod. 522D L. 16.000 Pagg. 228 


INTRODUZIONE AL PASCAL 

Il volume, incentrato su numerosissimi esempi che verificano 
costantemente l’apprendimento del lettore, insegna a conosce¬ 
re, capire ed usare tutte le particolarità e i vantaggi di questo 
linguaggio. Nel corso della trattazione vengono ampiamente 
utilizzate le tecniche di programmazione strutturata, come 
pure tecniche particolari, quali il trattamento dei file, l’utilizza¬ 
zione della recursività e il trattamento grafico. 

Cod. 516A L. 30.000 Pagg. 484 


COMPUTER GRAFICA 

Si può dire che la computer grafica si pone nel contesto più 
generale del trattamento dell’Informazione, avendo individua¬ 
to nell’immagine un contenuto informativo che è possibile 
elaborare. 

Quest’opera, con il suo rigore informativo e scientifico, si pone 
come fondamentale nel carente panorama italiano; inoltre le 
informazioni e gli spunti contenuti nel testo contribuiranno 
certamente alla divulgazione ed alla formazione di idee nuove 
e feconde. 

Cod. 519P L. 29.000 Pagg. 174 
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Gruppo Editoriale Jackson Via Rosellini, 12 - 20124 Milano 


Nome e Cognome 


Cap._ 
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... dalla libreria 
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APPLE II - Guida all’uso 





Se possedete un Apple e volete conoscerlo a fon¬ 
do, se volete comprarlo, o se semplicemente vole¬ 
te imparare la sua programmazione, troverete in 
questo libro, tutte le risposte, comprese alcune 
vere “primizie” che vi occorrono per una perfetta 
operatività del sistema. Conoscerete i vari compo¬ 
nenti del sistema e come usarli al meglio. Verrete 
guidati alla programmazione in BASIC e a usare le 
caratteristiche grafiche e sonore del sistema. Im¬ 
parerete a memorizzare su disco sia programmi 
che archivi dati, come ad inserire un programma 
scritto in assembler in uno scritto in BASIC. 

E poi ancora, tutte le istruzioni e funzioni BASIC e 
ben 12 appendici veramente basilari. 

Cod. 331P L. 26.000 Pagg. 400 
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sincronizzare i segnali video, amplifi¬ 
cati e «triggerati» da due particolari 
amplificatori e da un transistor MOS- 
FET, con i segnali provenienti dalla 
6821, in modo che venga eseguita 
una «spazzolata» di tutta l’immagine. 
Ogni volta che un campionamento sa¬ 
rà eseguito, la CPU potrà ritrovare su 
uno dei registri della 6821 il risultato 
codificato su 8 bit. 

Le informazioni contenute sul byte 
risultante riguarderanno la luminosità 
e il contrasto della zona analizzata. 

Compito della CPU sarà quello di 
decodificare il byte, grazie all’apposito 
programma scritto sulla 2708, e di 
scrivere sulla memoria video ad alta 
risoluzione il risultato di questa opera¬ 
zione. 

Il campionamento avviene sequen¬ 
zialmente per linee verticali di punti, 
ciò per permettere il corretto aggancio 
di sincronismo di ciascun punto cam¬ 
pionato nel minimo tempo possibile. 
Quando avviene l’aggancio, uno spot 
viene inviato anche al segnale video 
per il monitor di controllo, in modo che 
si possa individuare, dal risultante 
cursore grafico verticale, lo stato at¬ 
tuale della esecuzione del pro¬ 
gramma. 

I controlli di bianco, nero e contra¬ 
sto, regolabili dai tre trimmer poten- 
ziometrici presenti sulla scheda, inte¬ 
ragiscono con la parte analogica del 
circuito, e decidono le tre soglie di in¬ 
tervento per comporre il valore del by¬ 
te di campionamento. Agendo oppor¬ 
tunamente su questi comandi è possi¬ 
bile ottenere una resa ottimale per di¬ 
verse condizioni di illuminazione e per 
diversi tipi di soggetto ripreso. Solo 
l’esperienza potrà essere d’aiuto per 
questo tipo di operazione: non si deve 
dimenticare che si stanno trattando 
dei segnali analogici... 

È consigliabile comunque, per i ri¬ 
tratti, non esasperare il contrasto, per 
ottenere ombreggiature più dolci e 
una maggiore definizione dei grigi, 
mentre, al contrario, per particolari ri¬ 
prese «al tratto», sarà opportuno re¬ 
golare il bianco e il nero poco al di 
sotto della soglia massima, dopo aver 
aperto al massimo il trimmer del con¬ 
trasto. 

II tempo di digitalizzazione è nell’in¬ 
torno dei 4 secondi, quindi il soggetto 
ripreso dovrà rimanere immobile per 
quel tempo. 

Il massimo numero di punti digitaliz- 
zabili è un quadro di 256x256 pixels, 
che con un opportuno accorgimento 
hardware, sono stati adattati a 
256x192 per ricoprire solo le aree utili 
di memoria video dell’Apple II. 
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La mela: una tentazione 
irresistibile. 

L’hai morsa: un’emozione 
incredibile. Cominci a 
gustarla: un sapore 
insaziabile. T u applichi? Noi 
applichiamo. Ogni due mesi, 
in abbonamento, Applicando 
porta in casa tua la fragranza 
semplice e odorosa della 
mela. Per saperne di più. 

Per non perdere tempo. 

Per scoprire subito tutte le 
altre cose che puoi fare con la 
tua mela Apple II, Apple ///, Lisa... 



Consulenza hardware e software: 

come, cosa, quando. Listati 
collaudati da copiare: per lavorare, 
per giocare, per imparare. Test dei 
programmi in commercio: 
confronti, valutazioni, 
suggerimenti. Applicazioni degli 
altri: chi, dove, cosa. 

Prove di accessori: quali, perchè, 
quanto. Poi le rubriche: i listini 
aggiornati, il mercatino delle 
mele, chiedi un programma, 
guadagnare col computer. 

Novità, Utilities, routine, 
spunti, suggerimenti, idee. 


Tu applichi? 
Noi applichiamo. 





Ufficio 

coti .1 VVPL 

«:CUrtO ?Mni 

Giochi /gì 

.'--^puntato. f» llX IpOTI 

Vaca"*» V < 

'* sol» 1 od 1 

«éss- Am 


Applicando é bimestrale. 
Per applicare con noi 
abbonati inviando il 
coupon a 
Editronica s.r.l.,, 

C.so Monforte 39, 

20122 Milano. 

Oppure aquistalo: 
nei migliori 
Computer Shop. 

Per dar più polpa 
alla tua mela. 


••• e puoi vincere 
un plotter Watanabe 


Gratis, se ti abboni subito! 


r 



Un dischetto con tre utilissimi superprogrammi 
e la Facility Card Applicard che, fra gli altri vantaggi, 
darà diritto a sconti sui programmi che verranno 
offerti da Applicando. Compila e spedisci 
subito questo tagliando a Editronica s.r.l., 

C.so Monforte 39, 20122 Milano. 


□ Allego assegno non trasferibile di lire 30 mila intestato a 

Editronica s.r.l. 


Sì, mi abbono! 


Inviatemi sei numeri di Applicando, il dischetto 
con i tre programmi gratis, e la carta Applicard. 


□ Allego ricevuta di versamento di lire 30 mila sul conto corrente 
postale n. 19740208 intestato a Editronica s.r.l., C.so Monforte 39, 
20122 Milano. 


□ Pago fin d’ora lire 30 mila con la mia carta di credito BankAmericard 

numero_scadenza_ 

autorizzando la Banca d’America e d’Italia ad addebitare l’importo 
sul mio conto BankAmericard. 


Cognome 

Via_ 

Cap- 


Data. 


Nome 


Città 


Firma 


Desidero che il mio abbonamento 
abbia inizio con il n°. 


N. 

























Etichette spiritose o bizzarre, 
di lavoro o di ogni genere, 
stampate facilmente e nel 


Etichetta più 



E tichettare bottiglie di vino, dischetti 
per computer, dossier, qualunque 
cosa. Rapidamente. Ottenendo il nu¬ 
mero esatto di etichette che si deside¬ 
ra, con la possibilità di cambiare una o 
più righe dopo aver stampato un certo 
numero di etichette; di cambiare tutto 
il testo e di cominciare a stampare 
altre etichette... 

Il programma di cui pubblichiamo il 
listato è self-prompting. Si precisa per 
prima cosa per quanti caratteri per 
pollice è predisposta la stampante: 10 
o 12. Poi il programma chiede i dati. Si 
possono apportare cambiamenti do¬ 
po che sono state introdotte tutte e 
quattro le righe dell’etichetta o dopo 
che si sono stampate le etichette, per 
stamparne una nuove serie modifi¬ 
cata. 

Se si immette un’etichetta con me¬ 
no di 4 righe il programma aggiunge le 
interlinee occorrenti per mantenere il 
giusto avanzamento. Si dovrà però 
controllare la posizione delle etichette 
prima di dare inizio alla stampa, per 
assicurarsi che siano allineate a dove¬ 
re. La maggior parte delle stampanti 
aggiunge un’interlinea al termine della 
stampa. 

Ogni volta che il programma finisce 
di stampare un quantitativo di etichet¬ 
te riporta l’utente al menù. Si può sce¬ 
gliere fra: 1) stampare altre etichette 
uguali, 2) fare cambiamenti, 3) cam¬ 
biare etichetta, 4) smettere. 

Il programma funzionerà con qual¬ 
siasi stampante in grado di stampare 
almeno 40 colonne. Dato che ci sono 
tante stampanti e schede di controllo 
diverse, e che ognuna ha esigenze 
diverse, può essere necessario cam¬ 
biare qualcuna delle linee del pro¬ 
gramma che controllano la stampa. 

Le minuscole 

Se si possiede uno degli adattatori 
per le minuscole, o ROMPLUS+ con 
filtro tastiera, non si è limitati alle 
maiuscole. Basta aggiungere una 
routine che attivi la scheda 
ROMPLUS+ quando viene eseguito il 
programma. Se si possiede un Apple 
He non occorrono routine particolari, 
ma attenzione a battere maiuscolo il 
«P» richiesto al momento della 
stampa. 

Il programma 

La linea 110 comprende il Return 
(CHR$(13)) assieme a Control-D per 
definire il comando DOS D$, perché 
questo comando viene ignorato se 
non è preceduto immediatamente da 
un Return. Le linee che cominciano a 


10 REM ********************* 

20 REM » STAMPAET1CHE7TE * 

30 REM * (C) COPYRIGHT * 

40 REM * APPLICANDO * 

50 REM * E INCIDER * 

60 REM ********************* 

110 OS = CHR$ (13) * CHR$ (4) 
130 GOTO 2500 

60Q REM «INTRODUZIONE DATI* 

610 HOME : VTAB 3 
615 PRINT "USA *11" 0 MENO 
CARATTERI PER 
RIGA':PRINTSPRINT 
620 F0R I = 1 TO 4 
630 PRINT’BATTI LA RIGA N. *1* 
635 PRINT I") GOSUB 
120Q:NI(I) = NI 

640 IF LEN <N$<I» > LL THEN 
PRINT CHRI (7): PRINT 'RIGA 
TROPPO LUNGA—': PRINT 'USA 
•LL' 0 MENO CARATTERI.*! GOTO 
635 

650 NEXT I 

660 PRINT s PRINT 'QUANTE 
ETICHETTE *: INPUT 'VUOI 
STAMPARE? ';NL 

700 PP = 0:J = NL - 1: GOSUB 1000 
710 PRINT 'PER FARE 

CAMBIAMENTI,PREMI (ESC)' 
720 PRINT s PRINT 'PER STAMPARE 
•NL' ETICHETTE, PREMI <P>* 

725 PRINT : PRINT 'ACCERTATI CHE 
LE ETICHETTE SIANO*sPRINT'BEN 
POSIZIONATE NELLA STAMPANTE '; 
730 GEI XI: PRINT 
740 IF XI = 'P* THEN J = OsPP = 
1: GOSUB 2950: GOSUB 1000: 

GOTO 770 

750 IF ASC (X») = 27 THEN 
GOSUB 1000: GOTO 870 
760 IF XI ( > 'P* AND ASC (XI) 
< > 27 THEN 730 


770 HOME s VTAB 4: PRINT 
■PUOI:’: PRINT 

775 PRINT '1- STAMPARE ALTRE 
ETICHETTE UGUALI" 

773 PRINT '2- FARE CAMBIAMENTI' 
780 PRINT '3- PREPARE ETICHETTE 
DIVERSE' 

785 PRINT '4- FINIRE" 

790 PRINT : PRINT 
'SCEGLI...(1-4) " 

795 GET XI: IF VAL (X*) (.1 OR 
VAL (XI) > 4 THEN 795 
800 IF X* = T THEN PRINT s 
PRINT : PRINT 'ACCERTATI CHE 
LE ETICHETTE SIANO*SPRINT 'IN 
POSIZIONE*: PRINT : INPUT 
'QUANTE NE VUOI STAMPARE? 

';NL:J = OsPP = 1: GOSUB 2950: 
GOSUB 1000: GOTO 770 
305 IF X* = '2' THEN PP = 0: 

GOTO 870 

810 IF X* = *3' THEN HOME : 

VTAB 4: GOTO 600 

320 IF X* = '4' THEN HOME : END 

870 GOSUB 1000: PRINT : PRINT 
"QUALE RIGA VUOI CAMBIARE? 
(1-4) ' 

872 GET X»: IF VAL (XI) ( 1 OR 
VAL (XI) > 4 THEN 872 
875 I = VAL (XI): PRINT : PRINT 
I'- 'NI(I) 

880 PRINT : PRINT 'INTRODUCI I 
DATI ESATTI.' 

890 PRINT I') ' ; : GOSUB 
1200:NI(1) = NI 

895 IF LEN (NKD) ) LL THEN 
PRINT CHRI (7): PRINT 'RIGA 
TROPPO LUNGA-*: PRINT 'USA 
'LL* 0 MENO CARATTERI.': GOTO 
890 

897 GOSUB 1000 
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numero desiderato. Il lettore ci 
metta la stampante, 

noi mettiamo il programma... 


che perfetta 


900 PRINT : PRINT "PER FARE 
ALTRI CAMBIAMENTI,PREMI <S>" 
910 PRINT 'PER TORNARE AL 
PROGRAMMA,*: PRINT “PREMI 11 
TASTO {SPAZIO) *i 
920 GET X* 

930 3F X* = *S* THEN G0SUB 
1000: GOTO 870 

940 J = NL - 1:PP = 0: HOME : 

VTAB 6: G0SUB 1000: GOTO 660 
1000 REM «VISUALI2./STAMPA* 

1010 HOME : VTAB 3 
1020 FOR 1 = 1 TO 4 
1025 IF PP = 0 M0 N*<I) < > *" 
THEN PRINT 1*- *; 

1030 IF N*(I) < > *" THEN 
PRINT TABI 5)Nf<I) 

1040 NEXT 

1050 FOR I = 1 T0 4 

1060 IF Nf(I) = ** THEN PRINT 

1070 NEXT 

1080 PRINT : PRINT 

1090 J = J + 1 

1100 IF J < NL THEN 1020 

1110 PP = 0: PRINT WPRIIQ* 

1120 RETURN 

1200 REM «PRENDICARATTERI* 

1210 N$ = *“ 

1220 GET K$: PRINT K$; 

1230 IF LEN <N$) = 1 AND ASC 
(K*) = 8 THEN PRINT * * CHR* 
(8);: GOTO 1210 

1240 IF ASC <K$) = 8 THEN N* = 
LEFT* <N$, LEN <N$) - 1): 

PRINT * *CHAR$<8);: GOTO 1220 
1250 IF ASC <K$) = 13 THEN 
RETURN 

1260 = N* + K$ 

1265 IF LEN <N$) > LL THEN 
RETURN 

1270 IF ASC <N$) = 13 THEN N$ = 
**: RETURN 


1280 GOTO 1220 
2500 HOME :PRINT* 

APPLICANDO*: VTAB 6: HTAB 10:* 
INVERSE : PRINT * 

STAMPASTI GHETTE *: NGRMAL 
2510 PRINT : PRINT "QUESTO 
PROGRAIflA STAMPA ETICHETTE 
SINGOLE, CIASCUN CONTENENTE 
FINO A* 

2520 PRINT *4 RIGHE CON UN 
MASSIMO DI 35 CARATTERI PER 
RIGA CON STAMPA A 12 
CARATT/POLL1CE* 

2530 PRINT *0 30 CARATTERI A 10 
CARATTERI/POLLICE* 

2540 PRINT : PRINT *A QUANTI 
CAR./POLL. STAMPA*:PRINT"LA 
TUA STAMPANTE?* 

2550 INPUT ‘BATTERE <10> 0 
<12> *;L 

2555 IF L = 12 THEN LL = 35 

2560 IF L = 10 THEN LL = 30 

2565 IF L < ) 10 AND L < >12 
THEN 2550 

2568 HOME : VTAB 4 

2570 PRINT : PRINT ‘DOPO OGNI 

RIGA BATTI <RETURN>.*: PRINT 
•SE SERVONO MENO DI QUATTRO*: 
PRINT’RIGHE BATTI <RETUWO 
PER*:PRINT*0GN1 RIGA CHE NON 
OCCORRE" 

2580 PRINT : PRINT "PREMI IL 
TASTO <SPAZIO> PER COMINCIARE, 
"j: GET X$; VTAB 8 
2590 GOTO 600 

2950 REM «ROUTINE STAMPANTE* 
2980 PRINT DVPR#r 
2990 RETURN 

3060 REM (0 1983 U.J. 

BURKHARD - APPLICANDO E 
INCIDER 



2500 visualizzano sullo schermo il ti¬ 
tolo e le istruzioni. 

Il programma è predisposto per una 
stampante con un passo di IO o 12 
caratteri a pollice. Se la stampante 
dispone di caratteri di altre dimensioni 
può essere necessario fare gli oppor¬ 
tuni cambiamenti nelle linee 2520- 
2565. 

Le subroutine che cominciano sulle 
linee 600 e 1200 ricevono (get) i ca¬ 
ratteri dalla tastiera uno alla volta e li 
contano di mano in mano che vengo¬ 
no introdotti. Se il numero supera il 
massimo scelto la stringa non viene 
accettata e il programma dirà di rico¬ 
minciare da principio quella riga. Nor¬ 
malmente l’Apple respinge le virgole 
come input, ma se si riceve (get) cia¬ 
scun carattere come stringa l’Apple 
accetterà le virgole e i punto e virgola. 

La stampa 

Quando si è finita l’introduzione dei 
dati il programma concede un’altra 
occasione di fare modifiche o corre¬ 
zioni. Di questo si occupa la subrouti¬ 
ne che comincia sulla linea 870. Poi lo 
schermo visualizza le linee da stam¬ 
pare e chiede il numero delle etichette 
che devono essere stampate (linea 
660). Si ha un’altra occasione di fare 
cambiamenti prima di stampare. 

Le subroutine che cominciano a li¬ 
nea 2950 preparano la stampante al¬ 
l’azione. La linea 2980 attiva il control¬ 
lore di stampante dell’Apple nello 
slot # 1, che è impostato per il limite a 
40 colonne. Per impostare quella 
scheda, per esempio, a 80 colonne si 
aggiunga l’istruzione PRINT 
CHR$(9)«80N». 

La subroutine di visualizzazione, li¬ 
nee 10OO-110O, è usata per la stampa 
oltre che per il display. La linea 1110 
spegne la stampante quando è stata 
completata la stampa. Il programma 
torna poi al menù, linee 770-785. 

Variabili e stringhe 

N$(l) è la stringa dei caratteri, e I è il 
numero di riga di quella stringa. LL è la 
lunghezza della riga (30 o 35 carat¬ 
teri). 

NL è il numero delle etichette da 
stampare, e J è un contatore che tiene 
nota del numero delle etichette che 
vengono di mano in mano stampate. 

PP indica se la stampante è stata 
richiamata dal programma: O se no, 1 
se sì. 

Per aumentare il numero di righe 
bianche fra un’etichetta e l’altra si pos¬ 
sono inserire altri comandi PRINT alla 
riga 1080. 


® 1983 by Incider e Applicando 
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SE VUOI ESSERE LIBERO 
DI SCEGLIERE. 

Ogni giorno in Europa si apre un nuovo computer shop. 

Un pubblico sempre più numeroso è attirato verso il personal 
e si rivolge ai negozi specializzati per trovare la sua marca 

Tu che hai capito qual è il futuro dei computer e hai deciso %|] 
di aprire un negozio, 
cerchi un nome che dia prestigio 
e una organizzazione che 
non ponga vincoli ma offra 
vantaggi concreti. 

Computeria vuol dire negozi 
di computer fin dal 1979. 

Computeria è anche una 
organizzazione che ha avviato 
rapporti di collaborazione 
con tutti i principali fornitori, 
perciò i suoi affiliati possono 
scegliere e vendere le marche 
più prestigiose e richieste. 

E inoltre Computeria ti dà un prezioso 
know-how, una ricchissima dotazione di 
programmi, supersconti esclusivi, 
vantaggi economici sul leasing. 

E tanta pubblicità. 

Se vuoi essere libero di scegliere quello che 
vuoi vendere nel tuo negozio, 
l’organizzazione Computeria 
è la tua scelta obbligata. 








Basta con la schiavitù dei centri esterni che gestiscono 
gli abbonamenti con gran dispendio di tempo e di denaro. 
Con un Apple e il programma che presentiamo, 
anche piccoli editori, circoli, club e associazioni d’ora in poi 

potranno raggiungere soci e abbonati su un piatto d’argento... 


Per servire 

l’abbonato 

% 



ato e piti amato. 


G estire gli abbonamenti di una o più 
riviste non è un problema per le 
grandi case editrici. Ma la maggior 
parte dei piccoli e medi editori risolve 
affidando a centri esterni l’elaborazio¬ 
ne dei dati relativi. Tuttavia, come 
spesso accade in questi casi, non si 
risparmia né tempo né denaro: biso¬ 
gna infatti digitare su appositi moduli i 
nuovi nominativi o i rinnovi che arriva¬ 
no periodicamente, e che poi verran¬ 
no ridigitati dal Service esterno. Solo 
dopo questa doppia operazione si 
avrà il tabulato aggiornato, che serve 
appena a controllare se un certo ab¬ 
bonato è stato inserito oppure no, e se 
è stato inserito senza errori, altrimenti 
bisogna poi comunicare al Service la 
variazione da effettuare. Nel caso si 
avesse l’esigenza di spedire una lette¬ 
ra ai propri abbonati, si dipenderebbe 
ancora dal centro esterno, ed ecco 
quindi, ancora una volta, la doppia tra¬ 
fila, che costa in termini di tempo e di 
denaro. 

Oggi anche in questo caso il perso¬ 
nal computer viene in aiuto dell’utente 
con un programma specifico. Si chia¬ 
ma Capricorn e serve a gestire 20.000 
abbonati nella versione Apple III e 
Profile da 5 mega, oppure 32.700 ab¬ 
bonati nella versione Apple II o Apple 
III e Corvus da 10 mega. Il programma 
è una derivazione del Sistema Zodia¬ 
co, prodotto dall’Accaesse Informati¬ 
ca di Como (via Acquanera 46, telefo¬ 
no 031/591040), dal costo contenuto: 
800.000 lire più IVA. 
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! I Codice 
SII Codice 

i 

i 

{Titolo 


CAPRICQRN 


{__ Corifena ? _ 

ICSigJ Tipo abbonaaentoCO] 


ICogno*e/Societa 7 ![Rossi] 

!Notte :[Giovanni] 


{Società 7 

{Rivenditore 


Provenienza I 


{Indirizzo 
!CAP Citta 7 

i 

i 

{N.abbonamenti 
{Inizio abbon. 


Prov. Naz. 


Data inseri»ento 
N.copie ♦ _ 


/ / 


Ecco come si presenta il manuale d’uso del programma 
Capricorn. Il manuale può essere consultato a video, 
oppure stampato, tutto o in parte, a seconda delle esigenze. 
La scheda elettronica riporta fra parentesi quadre i dati da inserire. 


I Codice 
!II Codice 

{Titolo 


CAPRICORN 


Confena ? 


{[Sig.3 Tipo abbona»entoCO] 


JCognofte/Societo 7 {[Rossi] 

!No»e {[Giovanni] 

{Società 7 {[Manifatture Seriche Corrusche] 

{Rivenditore * Provenienza J 


{Indirizzo 
5CAP Citta 7 


Prov. Naz. 


!N.abbonamenti 
{Inizio abbon. 


Data inserisento 
N.copie { _ 


In questo esempio si capisce chiaramente perché 
è stato inserito di nuovo un campo relativo alla società: 
infatti se si vuole spedire la rivista a un abbonato che lavora 
in una società, entrambi i dati figureranno nell’etichetta di spedizione. 


NOVITÀ 

BUFFER PER 
QUALUNQUE 
STAMPANTE 
CON STANDARD 
CENTRONICS. 

Memorizza immediata¬ 
mente 8 kbyte in uscita 
dal calcolatore e li invia 
successivamente alla stam¬ 
pante. Potete così usare 
il calcolatore mentre la 
stampante lavora. 

L. 250.000* 


mm 

34170 Gorizia - Via Angiolina, 23 
Telefono 0481 -30909 

VENDITA PER 
• CORRISPONDENZA 


PER APPLE 


Drive 5" con doppio 
controller 

L. 770.000 

Drive aggiuntivo 

L. 680.000 

Interfaccia stampante 

St. Centronics 

L. 80.000 

Interfaccia stampante 
Centronics per Epson 
con grafica 

L. 130.000 

Come sopra per 
Centronics 739 

L. 150.000 

Espansione 16K 
Language Card 

L. 99.000 

Espansione di memoria 
Maxtram 16K 

L. 150.000 

Interfaccia seriale 
bidirezionale RS232C 

1.160.000 

Stampante Oki 80 
(parallela) 

L. 720.000 


ULTIME NOVITÀ: 

Replay scheda per la copiatura di 
tutti i programmi L. 188.000 

Per Apple //e 80 colonne + 64 K 

L. 198.000 

* N.B. Tutti i prezzi sono comprensivi 
di IVA e spese di spedizione. 


Il programma 

A ogni abbonato è dedicata una 
scheda elettronica che, compilata la 
prima volta, viene poi aggiornata au¬ 
tomaticamente nel tempo. Il primo 
campo che si deve compilare è quello 
del titolo (Sig., Dott., Ing., Spett., e 


così via). Segue un campo che identi¬ 
fica il tipo di abbonamento: a paga¬ 
mento (diretto o a mezzo di interme¬ 
diari come agenti o librerie), omaggio 
(da parte della direzione, della reda¬ 
zione o della concessionaria di pubbli¬ 
cità), e altri codici disponibili. Si inseri¬ 
sce poi il cognome e il nome, oppure 
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! I Codice 
! II Codice 

• 

» 

♦ Conferma ? 

CAPRICORN 

ITitolo 

{[Sig*3 Tipo abbonamentoEQ] 


? Cognome/Societo ' 

![Rossi3 


{Nome 

{[Giovanni] 


1Società 7 

{[Manifatture Seriche Comasche! 


{Rivenditore 

{[Libri belli3Provenienza { 


«Indirizzo 

« 

• 


•CAP Citta' 

{ Prov* 

__ Naz. 

IN*abbonamenti 

{ Data inserimento / / 


! Inizio abbon» 

♦_ N»copie {_ 


Il campo rivenditore serve a identificare l’intermediario 
che ha procurato l’abbonamento. Questa, e altre possibilità 
offerte dal programma generalmente non sono contemplate 
dalle società che forniscono il servizio per conto terzi. 

I Codice 

» 

• 

CAPRICORN 

II Codice 

♦ Conferma ? 


* 

Titolo 

{[Sig»3 Tipo abbonamento[Q3 


Cognome/Societa' 

{[Rossi! 


Nome 

{[Giovanni! 


Società' 

{[Manifatture Seriche Comasche! 


Rivenditore 

{[Libri bellilProvenienza {[pi! 


Indirizzo 

CAP Citta' 

« 

* 

{ Prov. 

__ Naz» 

N»abbonamenti 

{ Data inserimento / / 


Inizio abbon» 

{_ N.copie {_ 



Il campo provenienza serve a identificare dove l’abbonato 
ha trovato il coupon per sottoscrivere l’abbonamento. 

Si può cosi quantificare il numero di abbonamenti 
pervenuti per mezzo di un’inserzione pubblicitaria. 


la società, se l’abbonamento è inte¬ 
stato a una ditta. I due campi succes¬ 
sivi servono a registrare il rivenditore 
(nel caso di un abbonamento procura¬ 
to da agenti o librerie, per sapere esat¬ 
tamente da chi è stato procurato), e la 
provenienza, campo questo all’inter¬ 
no dei quale si può specificare in se¬ 


guito a quale annuncio e su quale 
giornale è arrivata la sottoscrizione di 
abbonamento. Seguono gli ovvi indi¬ 
rizzo, CAP, città, provincia e nazione. 
La scheda elettronica prevede inoltre 
la possibilità di specificare quante co¬ 
pie dello stesso numero vanno inviate 
al medesimo abbonato (i cosiddetti 
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LISA LA NUOVA WORKSTATION 
APPLE CHE SI PROIETTA 
NELL’OFFICE AUTOMATION FUTURE 

NEI NOSTRI COMPUTER SHOP... 



APPLE III potenziato 
con nuove periferiche 



APPLE Ile il nuovo 
personal inimitabile 


Drive 5" e 8'' floppy 
e Winchester fino a 20 MB 



Monitor monocromatici 
e colori ad alte risoluzioni 


Stampanti a margherita 
e aghi veloci e silenziose 


Plotter professionali 
a più colori e formati 



Supporti magnetici e 
accessori di qualità 



Modulistica stampati 
libri e letterature 




^cippkz computar 

DISTRIBUZIONE 
PER L'ITALIA 


computar 

cantar 

.Dove?!. 

• UFF. COMM. - SHOW ROOM - SALE CORSI 
Corso Sardegna 36 int. 26 (GE) 
Tel. (010) 516796 

• COMPUTER SHOP 

Via San Vincenzo 129R (GE) 
Tel. (010) 581815 

• CENTRO ASSISTENZA TECNICA 
Corso Gastaldi 77R (GE) 

Tel. (010) 300797 
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abbonamenti multipli) e la data in cui è 
stato inserito l’abbonamento, insieme 
con il numero della rivista con cui ha 
inizio l’abbonamento. Il campo suc¬ 
cessivo riguarda il numero di copie 
che spettano all’abbonato: 4, 6, 12, 

13,48, 52, a seconda che si tratti di un 
trimestrale, un bimestrale, un mensi¬ 
le, un settimanale e a seconda delle 
condizioni che ciascun editore è solito 
praticare. 

Gli altri campi presenti nella scheda 
elettronica vengono riempiti automati¬ 
camente. Innanzitutto il codice abbo¬ 
nato, che il programma forma pren¬ 
dendo le prime tre lettere del cogno¬ 
me e le prime tre lettere del nome per il 
primo codice, mentre il secondo codi¬ 
ce lo forma facendo precedere il primo 
codice dal CAP. Inoltre sono visibili tre 
file di 16 numeri ciascuna (Al, A2... 

Al6; B1...B16; C1...C16); le prime 
due file indicano i numeri spediti al¬ 
l’abbonato. Infètti, in corrispondenza 
di ciascuna casella, al momento del 
corrispondente invio di un numero 
della rivista, si “accende” un asteri¬ 
sco: vuol dire che, per esempio, il nu¬ 
mero A4, corrispondente al numero di 
aprile, è stato spedito. Si ha così una II menù principale del programma Capricorn offre 10 opzioni, 

panoramica della “vita” di ciascun ab- Oltre a quelle di gestione abbonamenti, stampa indirizzi e mailing, 

bonato per 32 numeri della rivista. è previsto anche il salvataggio dei dati su dischetto. 


SISTEMA ZODIACO 
1 - Gestione abbonati 

L ~ bfcdBlpt 

3 - Staapa testi 
A - Sta&pa testi con indirizzo 

5 - Modifica parametri per stampa 

testi con indirizzo 

6 - Manutenzione 

7 - Crea;Biodifica formiti di stampa 
£ - Salvataggio dati su floppy 

9 * Recupero dati da floppy 
10 - Cambia tipo carattere su stampante 
0 - Fine Quale ? 


bit computers 

par acquistare a roma 

appkz computar 


Sede centrale: Roma - Via Flavio Domiziano, IO (Eur) - rei. 06/5126700-5138023 

Apple shop: Roma - Via F. Satolli, 55/57/59 (p.zza pio XI) - tei. 06/6386096-6386146 

Latina: Cso dello Repubblica, 200 - rei. 0773/497301 

Cisterna di Latina: Via Aversa, 11 - rei. 06/9696973 

Napoli: Via Terracina, 354 Porco Angelo is, F - rei. 081/611817 

Gaeta: Lungotevere Caboto Porco Belvedere Conca - rei. 0771/470168 

Tarquinia: Via S. Lucio Filippini, 17 - rei. 0766/856212 

Viterbo: Via Giacomo Matteotti, 73 - rei. 0761/38669 

ASSISTENZA HARDWARE SOFTWARE E CORSI 


Distribuzione 
per l’Italia 


r/CJ 
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STAMPA INDIRIZZI 


Ordinati su : 1-1 Codice 

2 - II Cedi ce 

Tutto l'archivio ? 

Dal codice ì 
dal codice ! 

dal codice :.. 

dal codice s 
dal codice • 


Stampa di prova ? 

Cor. 1 indir. per piu’ altonanenti ? 
Formato di stampa (1..10) ? 
Conferma ? 


Quale ? 


al codice 
al codice 
al codice 
al codice 
al codice 


Tipo spedizione : 

Stampa su carta per indirizzi ? 


Quando si arriva a spedire il trenta¬ 
treesimo, per mezzo di un comando 
particolare si azzerano i numeri spedi¬ 
ti in precedenza e si ricomincia, per 
così dire, una vita nuova. Le 16 casel¬ 
le contraddistinte dalla C possono 
servire invece a definire l’omaggio le¬ 
gato all’abbonamento o qualche altro 
tipo di spedizione diversa dalla rivista. 

La parte stampe prevede diverse 
possibilità. Innanzitutto le etichette 
possono essere ordinate per CAP, 
operazione indispensabile, in quanto 
la postalizzazione deve avvenire in 
questo modo. Inoltre si può stampare 
il tabulato operando diverse scelte: 
tutti gli abbonati in ordine alfabetico, o 
tutti gli abbonati di una qualsiasi città, 
o gli abbonati dalla lettera C alla lette¬ 
ra F, e così via, per tutte le possibili 
esigenze che si presentano nella ge¬ 
stione degli abbonamenti di una ri¬ 
vista. 

Un aspetto di grande importanza è 
la possibilità di scrivere agli abbonati 
lettere personalizzate. 

Il programma è completato da un 
manuale su dischetto. Ciascun utente 
può stamparsene una copia su carta, 
per intero o solo nella parte che inte¬ 
ressa in un determinato momento, op¬ 
pure può consultarlo a video. 


ìPrepara la Corta e poni la stampante "ON-LINE” 

! ESC per iniziare la stampa - ESC per sospenderla 


Gli Indirizzi possono essere stampati solo in parte. 

Esiste inoltre la possibilità di un sort sofisticato che permette di raggruppare 
gli abbonati secondo una delle categorie contemplate nella scheda. 
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Padroni o inquilini, per il 
computer non fa differenza: basta 
prendere il VisiCalc e... 


Equo canone 
col VisiCalc 


L > equo canone è di nuovo nell’oc¬ 
chio del ciclone: in questi giorni 
fioccano gli aumenti... di ricavi per 
qualcuno, di spese per qualcun altro: 
Partendo dal presupposto che il com¬ 
puter è per natura obiettivo al cento 
per cento, e quindi non parteggia né 
per l’inquilino, né per il padrone di ca¬ 
sa, proponiamo un facile programma 
di calcolo impostato su VisiCalc. 

La scheda riporta nella prima colon¬ 
na di sinistra gli elementi dell’unità im¬ 
mobiliare suddivisi secondo quanto 
prevede la legge: basterà compilare il 
relativo (o i relativi) quadrante che poi 


LOCATORE ! IMMOBILIARE BELLAVISTA 
CONDUTTORE i Sig. ROSSI GIOVANNI Via Dante, 1 COHO 

SCHEDA PER IL CALCOLO DELL'EQUO CANONE E AGGIORNAMENTI SUCCESSIVI 

I-dìtìrhìnàzìónèdéllÀìùpèrfìcììcònvìnzìonàlì 


Piano 


ELEMENTI DELL'UNITA' IMMOBILIARE 

Superficie 
da consider, 

Coeff, 

Superficie 

convenzionale 

Appartamento superiore a mq, 70 


1,00 

0 

Appartasento tra mq» 46 e mq» 70 (1) 

47.952 

1.10 

52,7472 

Appartamento inferiore a »q. 46 ($) 


1,20 

0 

Autorimesse singole 

18,29 

0.50 

9,145 

Posto macchina 


0,20 

0 

Balconi, terrazze, cantine e simili 

6.885 

0.25 

1,72125 

Superficie scoperta in godimento esclusivo 


0,15 

0 

Superficie condominiale a verde (quota milles.) 


0.10 

0 


(t) Se io stato di conservazione e' scadente si applica Totale superficie 
il coefficiente 1.00 (anziché' 1.10 e 1.20) convenzionale 


63,61345 


2-DETERHINAZIONE DEL COSTO UNITARIO DI PRODUZIONE 


COSTO BASE DEMOGRAFIA UBICAZ. CONSERV, VETUSTA' LIVELLO TIPOLOGIA COSTO UNITARIO 

A MQ. abitanti zona stato anni piano categoria DI PRODUZIONE 


250000 0.95 

3-CALC0L0 DELL'EQUO CANONE 


1.20 


1.00 


0.92 


1,00 


1.25 


327750 


SUPERFICIE I COSTO UNITARIO ! TASSO UNITARIO ! 

CONVENZIONALE I DI PRODUZIONE ! DEL CANONE ! 


63,61345 X 327750 X ,0385 = 

...____|______«___I 

ARREDAMENTO (max, 30%)..20% 

RIPARAZIONI STRAORDINARIE. 5Z di LIRE 300000 

VAR. IND, COSTO VITA dal 30/7/78 al 14/7/83 167 l 

EQUO CANONE COMPLESSIVO 


CANONE ANNUO 


802698 

160540 

15000 

1340506 

2318744" 


CANONE TRIMES. 
200675 


53513,22 

5000 

335127 

"594314" 
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verrà moltiplicato automaticamente 
per il coefficiente della terza colonna. 

La seconda parte della scheda va 
compilata con i dati relativi all’apparta- 
mento in questione: costo base con¬ 
venzionale a metro quadro, classe de¬ 
mografica dei comuni, ubicazione, 
stato di conservazione e manutenzio¬ 
ne, vetustà deirimmobile, livello del 
piano, tipologia. I dati sono facilmente 
ricavabili dalla tabella pubblicata qui 
sotto. A questo punto, nella casella 
relativa al costo unitario di produzione 
compare il risultato, che è poi il costo 
base moltiplicato per i vari coefficienti. 


La terza parte della scheda prevede 
la moltiplicazione tra superficie con\ 
venzionale, costo unitario di produzio¬ 
ne e tasso unitario del canone. I primi 
due dati sono già ottenuti (ultima co¬ 
lonna in fondo a destra della prima 
parte e prima colonna a destra della 
seconda parte); basta ordinare;di ri¬ 
prenderli, digitando nelle nuove casèl¬ 
le le coordinate sotto forma di calcolo. 

Il terzo dato è fisso, 3,85%, come indi¬ 
cato dalla legge. Nella quarta colonna 
a sinistra della terza parte compare 
così l’equo canone che, diviso per 
quattro, figura nell’ultima colonna co- 


a' 

me canone trimestrale, per chi abi¬ 
tualmente paga o si fa pagare trime¬ 
stralmente l’affitto. I dati devono infine 
essere maggiorati percentualmente 
se l’appartamento in questione è arre¬ 
dato (massimo +30%) e/o ha subito 
riparazioni straordinarie (5% dell’im¬ 
porto). Prima di ottenere il dato defini¬ 
tivo bisogna poi moltiplicare per la 
percentuale prevista dalla variazione 
dell’indice del costo della vita. 

Il modello è disponibile su dischetto 
(lire 20.000) sia per VisiCalc II sia per 
VisiCalc III: basta compilare il buono 
d’ordine di pagina 73. 


RIEPILOGO DEGLI ELEMENTI ESSENZIALI PER IL CALCOLO DELL’EQUO CANONE 


COSTO BASE CONVENZIONALE Regioni del Centro-Nord lire 250.000 

A METRO QUADRATO Regioni del Sud, Sardegna e Sicilia lire 225.000 


% 

COEFFICIENTI CORRETTIVI DEL COSTO BASE SECONDO 


LA TIPOLOGIA 


a) 

Abitazione 

di tipo signorile 

(A 1) 

2,00 

b) 

» 

di tipo civile 

(A 2) 

1,25 

c) 

» 

di tipo economico 

(A 3) 

1,05 

d) 

» 

di tipo popolare 

(A 4) 

0,80 

e) 

» 

di tipo ultrapopolare 

(A S) 

0;50 

f) 

» 

di tipo rurale 

(A 6) 

0,70 

g) 

» 

di tipo villini 

(A 7) 

1,40 

b) 

» 

tipica dei luoghi 

(A 11) 

0,80 


L’UBICAZIONE 

(Comuni superiori ai 20.000 abitanti) 


a) Centro storico 1,30 

b) Fra centro storico e periferia edificata 1,20 

c) Periferia edificata 1,00 

d) Zona agricola 0,85 

e) Zone di pregio particolare in periferia 

o zona agricola 1,20 

f) Edifìci o comparti di edifìci degradati 

nelle zone di cui alle lettere a), b) e c) 0,90 

(Comuni non superiori ai 20.000 abitanti) 

g ) Centro storico 1,10 

h) Centro edificato 1,00 

/) Zona agricola 0,85 

/) Edifìci ©^comparti di edifìci degradati 

nelle zone di cui alle lettere g) e h) 0,90 


LO STATO DI CONSERVAZIONE E MANUTENZIONE 


a) Normale 

1,00 

b) Mediocre 

0,80 

c) Scadente 

0,60 


LA CLASSE DEMOGRAFICA DEI COMUNI 


a) Comuni 

superiori 

ai 

400.000 abitanti 

1,20 

b) 

» 

» 

ai 

250.000 

» 

1,10 

c) 

» 

» 

ai' 

100.000 

» 

1,05 

d) 

» 

» 

ai 

50.000 

» 

0,95 

e) 

» 

» 

ai 

10.000 

» 

0,90 

0 

» 

fino 

a 

10.000 

» 

0,80 


IL LIVELLO DEL PIANO 


a) Piano attico 1,20 

b) Piano intermedio e ultimo piano 1,00 

c) Piano terreno 0,90 

d) Piano seminterrato 0,80 

e) Piano attico di immobile senza ascensore 1,10 

f) Piano quarto e superiori fino all’ultimo 

compreso di immobile senza ascensore 0,95 


LA VETUSTÀ DELL’IMMOBILE 
Primi 5 anni successivi a quello di costruzione. 1,00 



anno 

0,99 

21 ° 

» 

0,845 

36o 

» 

0,77 

7o 

» 

0,98 

22 ° 

» 

0,84 

37o 

» 

0,765 

8 ° 

» 

0,97 

23o 

» 

0,835 

38o 

» 

0,76 

90 

» 

0,96 

24o 

» 

0,83 

39o 

» 

0,755 

lOo 

» 

0,95 

25o 

» 

0,825 

40° 

» 

0,75 

11 ° 

» 

0.94 

26o 

» 

0,82 

4lo 

» 

0,745 

12 o 

» 

0,93 

270 

» 

0,815 

42o 

» 

0,74 

13o 

» 

0,92 

28o 

» 

0,81 

43o 

» 

0,735 

140 

» 

0,91 

29° 

» 

0,805 

440 

» 

0,73 

15o 

» 

0,90 

30o 

» 

0,80 

45o 

» 

0,725 

16o 

» 

0,89 

3lo 

» 

0,795 

46o 

» 

0,72 

17o 

» 

0,88 

32o 

» 

0,79 

470 

» 

0,715 

18o 

» 

0,87 

33o 

» 

0,785 

48o 

» 

0,71 

19° 

» 

0,86 

340 

» 

0,78 

490 

» 

0,705 

20 o 

» 

0,85 

35o 

» 

0.775 j 

50o 

» 

0,70 


e oltre 
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SCOPRI LA DIFFERENZA DYSAN 



Perchè Dysariì 
Le Quattro 
Ragioni Per 
Preferire la 
Differenza ^ 
Dysan ^ 




SI PKRFKU DOPO II Bl RMISHING 


RÈCORD BAND ( 
GUARI) BAND 008" 
RECORD BAND .012" 


^LUBRIFICANTE 

SUPERFICIE 


SUPERFICIE PRIMA DEL BURNISHING 


100% di superficie 

/ Esclusiva tecnica 

X Speciale 

iJL Certificazione 

l.i testata “error free” i 

■« di Burnishing 

*/• lubrificazione 

totale 


Solo Dysan garantisce che 
tutta la superficie della 
diskette sia realmente 
100% “error free”: un test 
esclusivo certifica le tracce 
e lo spazio tra le tracce 
assicurando prestazioni 
“error free” anche in 
presenza di 
disallineamento delle 
testine. 


Solo Dysan garantisce una 
superficie “a specchio” 
grazie alla sua avanzata ed 
unica tecnica di 
“burnishing” - questo 
risultato assicura un 
miglior segnale sulle 
tracce, una minor 
turbolenza sulle testine, 
consentendo un sicuro 
mantenimento dei dati 
dopo milioni e milioni di 
rotazioni. 


Solo Dysan garantisce, 
mediante uno speciale 
procedimento di 
lubrificazione, ottenuto 
trattando la superficie con 
il proprio esclusivo 
lubrificante DY 10, che le 
prestazioni “error free” 
siano esaltate e mantenute 
nel tempo. 


Solo Dysan garantisce, con 
il suo metodo automatico 
di controllo qualità di tutta 
la produzione (risultato di 
una tecnologia leader nel 
mondo) che ogni diskette 
prodotta sia stata 
singolarmente testata e 
certificata. 


DATAMATIC S.r.l. 


distribuisce per l’Italia 


@ Dysan. 

m/CORPORATION 



datamatic 

tratta bene 
il tuo calcolatore 


Via Pellizzone,13 - 20133 Milano - tei. 02/7491295-6-7-8 








































c *. Capricciose, dispettose, moleste. Le stampanti sanno 

come fare ammattire i loro proprietari. Ma ecco una routine 
capace di mettere il guinzaglio alla Epson MX-80, 

convincendola a stampare i vostri grafici. 


Dallo schermo 

alla stampante 



A lzi la mano chi è riuscito a farsi 
obbedire subito dalla sua stam¬ 
pante. Capricciose, dispettose, mole¬ 
ste: è il minimo che si possa dire di 
loro. Ecco perché accontentiamo vo¬ 
lentieri il lettore che ha scritto alla ru¬ 
brica «Chiedi un programma» nella 
speranza di riuscire a stampare final¬ 
mente i grafici con la sua Epson MX- 
80 con l’opzione Graftrax 80 instal¬ 
lata. 

La stampante dev’essere collegata 
con l'interfaccia parallela inserita nello 
slot 1. Nelle pagine seguenti forniamo 
il listato sorgente scritto per l’Assem- 
bler Pascal dell’Apple: basta digitarlo 
con l’Editor del Pascal, e quindi as¬ 
semblarlo. Per richiamare poi la routi¬ 
ne dall’interno di un programma in Pa¬ 
scal sarà sufficiente includere nel pro¬ 
gramma l’istruzione: PROCEDURE 
EPSOND; EXTERNAL;. Poi si colle¬ 
ghi la routine EPSOND con il pro- 


300.3e8 

0300- A9 00 85 04 85 06 AO 08 
0308- B9 BO 03 20 68 03 88 DO 
0310- F7 A5 04 18 69 07 C9 CO 
0318- 90 04 A9 CO 85 06 85 05 
0320- A9 01 85 02 A9 00 85 03 
0328- A6 04 20 74 03 18 B1 00 
0330- 25 02 FO 01 38 26 03 E8 
0338- E4 05 90 EE A5 03 24 06 
0340- 10 04 OA OA OA OA 20 6B 
0348- 03 06 02 10 D7 C8 CO 28 
0350- 90 CE A5 05 85 04 A5 06 
0358- FO AC A9 1B 20 6B 03 A9 
0360- 32 20 6B 03 A9 OD 20 6B 
0368- 03 A9 OA 2C CI CI 30 FB 
0370- 8D 90 CO 60 8A 29 CO FO 
0378- 08 30 04 A9 28 DO 02 A9 
0380- 50 85 00 8A 29 08 FO 06 
0388- A5 00 09 80 85 00 8A 29 
0390- 07 84 01 A8 B9 A9 03 A4 
0398- 01 85 01 8A 29 30 FO 08 
03A0- 4A 4A 4A 4A 65 01 85 01 
03A8- 60 20 24 28 2C 30 34 38 
03B0- 3C 01 18 4P 1B OA OD 31 
03B8- 1B 


gramma in Pascal al quale si vuole 
aggiungere la possibilità di stampare 
la grafica come indicato a pagina 149 
del manuale (Pascal Reference 
Manal). 

A questo punto ogni volta che si 
chiamerà EPSOND tutto ciò che si tro¬ 
va sullo schermo ad alta risoluzione 
dell’Apple verrà stampato. 

Chi volesse chiamare la routine dal 
Basic può usare invece il listato in As¬ 
sembler di questa pagina (da digitare 
dopo aver battuto Call-151), salvan¬ 
dolo con BSAVE EPSOND, A$300, 
L$B9. Ciò permetterà di stampare le 
pagine grafiche ad alta risoluzione 
con un BRUN EPSOND, oppure, dal¬ 
l’interno di un programma in Basic, 
con un BLOAD EPSOND seguito da 
un CALL 768. La routine è stata scritta 
in modo da occupare la minor quantità 
possibile di memoria. 

Segue a pag. 48 
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84100 SALERNO 

Via E. Bottiglieri, 19 Tel- 089 394491 


• HARDWARE 

• SOFTWARE 

• PERIFERICHE 

• ACCESSORI 

CENTRO DI ASSISTENZA 

flfccippkz computer 


Software 

per il nuovo Apple Ile: 

• Gestione distributori 
bibite 

• Piccole Industrie 
di trasformazione 


DISTRIBUZIONE PER L’ITALIA 







me 

■ 


INFORMATICA 

/ 


ittmmmtmmmmmmtmtmmmmmt 

iì Ruotine per staapare lo scherio grafico in alta I 
;t risoluzione su stipante EPSON I 

ìt % 

immmmmmtmmmmmtmttltmmm 


BASL 

BASH 

HASK 

CHAR 

VLINE 

MLAST 

LASTLN 

START 

PLINE 

$10 


NOTDN 

HSK1 

NXTHSK 


♦EQU 0 
♦EQU 1 
.EQU 2 
.EQU 3 
.EQU 4 
.EQU 5 
.EQU 6 

LDA #0 
STA OLINE 
STA LASTLN 
LDY $8 
LDA EPSGN-lfY 
JSR POUT 
DEY 

BNE $10 
LDA VLINE 
CLC 

ADC #7 
CNP #192. 

BCC NOTDN 
LDA #192. 

STA LASTLN 

STA VLAST 

LDA #1 
STA HASK 


{Indirizzo base della linea grafica HI-Res 

{Seleziona il bit dal byte dello scherao 
{Carattere da inviare alla staapante 
{Contatore dello linea di scherao 
{Ultiaa linea di scherao per la linea in staipa 
{Flag di ultiaa linea 


{Iniziolizza cnt linea di scherao 
»e flag di ultiaa linea 

i r -±±- *<» --* -A- 


isetta la spaziatura a 7/72 di 
Rinvia return e line-feed e 


pollice 

{poni la staapante in aodo grafico 


{calcola Tultiao linea di scherao per questa linea 
{di staapa 

{staapa 7 linee di scherao per ogni riga di staapa 
{controllo se ultiaa linea dello scherao 


{setta flag di ultiaa linea 

{predisponi ultiaa linea di scherao per 
{ questa riga di staapa 
{prepara la aaschera per il bit 0 


SLINE 


NOSET 


NOTLST 


LDX VLINE 
JSR BCALC 
CLC 

LDA 8BASL,Y 
AND HASK 
BEQ NOSET 
SEC 

ROL CHAR 
INX 

CPX VLAST 

BCC SLINE 
LDA CHAR 
BIT LASTLN 
BPL NOTLST 
ASL A 
ASL A 
ASL A 
ASL A 

JSR POUT 
ASL HASK 

BPL NXTHSK 
INY 

CPY #28 
BCC HSK1 
LDA VLAST 
STA VLINE 
LDA LASTLN 


{iniziolizza il carattere di staapa a NULL 
{carica X con il nuaero di linea corrente 
{calcola rindirizzo base dello scherao 
{azzera il carry 


{setta il carry se il bit dello scherao e' on 

{porta il carry nel carattere da stanpare 
{passa alla prossiaa linea di scherao 
5e' l'ultiaa linea di scherao per questa 
{linea di staapa ? 

(no - considera la prossiaa linea 
{si - staapa il carattere preparato 
{controllo se e' l'ultiaa linea di staapa 
{no 

«si - 1'ultiaa linea di staapa ha solo 
{3 linee di scherao 

{occorre shiftare il carattere di 4 bits 


{invia il carattere preparato alla staapante 
{predisponi la aaschera per 
{l'utilizzo del prossiao bit 
{controllo se e' l'ottavo bit 
{si - passa al prossiao byte della linea 
{controllo se uìtieo byte della linea 
{no * prendi il prossiao byte della linea 
{si - setta VLINE a VLAST 

{controllo se la linea staapata e 7 Tultiao 
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PRTS 


BEQ PI INE 
LDA #1B 
JSR POUT 
LBft *32 
JSR POUT 
LDA *OD 
JSR POUT 
LDA *OA 


ino - sto*po la pTossita lineo 
» riposiziona la stanpanie per spaziatura nomale 


} invio return 


L „, TV » «invia line-feed 

•Routine per inviare il carattere in A alla stampante 
}La stampante deve essere nello slot 1 


POUT BIT 0C1C1 {stampante pronta ? 

BHI POUT ino - riprova 

STA 0C90 «si - invia carattere 

RTS 

«Routine per calcolare l'indirizzo iniziale della linea dello scherno 

«INPUT* X = Nunero della linea verticale dello scherno t(w 9 a 191.) 
jOUTPUT* Indirizzo della linea «eterizzato in BASI e BASH 

«Il registro Y viene lasciato innutato 


BCALC 

TXA 

AND *0C0 

BEQ $20 

BNI $10 

LDA *28 

BNE $20 


$10 

$20 

LDA *50 

STA BASL 

TXA 



AND *8 

BEQ $30 

LDA BASL 

ORA *80 

STA BASL 


$30 

TXA 

AND *7 

STY BASH 

TAY 

LDA BTBL « Y 

{salvo y 




LDY BASH 

STA BASH 

TXA 

AND *30 

BEQ $40 

LSR A 

}ripristina y 


LSR A 

LSR A 

LSR A 

ADC BASH 

STA BASH 


$40 

RTS 


BTBL 

.BYTE 20,24,28,2C,30,34,38,3C 


! 


«Tabella delle linee indirizzo 


, , .. ,. «per la I pagina grafica 

«per la li pagina grafica porre al posto della riga precedente 
«i seguenti valori * 

«BTBL .BYTE 40«44«48j4C»50«54«58f5C «Tabella delle linee indirizzo 

«per la II pagina grafica 

EPSON .BYTE 1,24.,4B,1B«OA,OD,31,1B «Byte da inviare alla stampante 


Vivere col 
computer, 

a Roma. 


VIA NOMENTANA 265-267-269-271 -273 



per chi di computer sa tutto ed ha bisogno di assi 
sterna specialistica, di software, di una stampante 
nuova, di libri, o anche solo di un pacco di carta... 
per chi non sa niente ma vorrebbe sapere, e capire: 
assistenza informativa, corsi di formazione, guida al¬ 
l’acquisto, consulenza... 

per chi ha un computer e per chi no; per un video 
a colori, i dischi, un modello nuovo, espansioni ed inte¬ 
grazioni di sistema... 


BimpiAlmp 



^gcippkz computar 


il nuovo Apple, punto d’arrivo della linea li, dopo Apple 
Il e Apple II plus. Ora con tastiera migliorata, tasti 
sensibili ed ergonomici, in versione italiana. Migliore 
visualizzazione, maiuscola e minuscola, sul video 
24 linee da 40 o 80 caratteri. Memoria espansa: 64 
K byte espandibili a 128, con 16 K di memoria ROM per 
l’uso contemporaneo di due linguaggi di programma. 


e presenterà, presto, 



.END 


{per settore la spaziatura, 
{inviore un return t line-feed 
le porla in nodo grafico 


Rivenditore Autorizzato 
SIGEEI s.r.l. 

Via Lorenzo Bonincontri 105-107 
telefono 5140792 
computershop 

Via Nomentana 265-273 
Tel. (06) 84.50.078 



® 1983 by Incider e Applicando 
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* . 

N ella precedente puntata di questa 
serie dicevamo che una variabile 
è simile all’etichetta da noi attribuita 
alle persone o alle cose che chiamia¬ 
mo per nome. Quando ci occorre la 
quantità rappresentata da una parti¬ 
colare variabile tutto quel che faccia¬ 
mo nell’ambito del programma è fare 
riferimento alla variabile chiamando il 
suo nome. Così per esempio PC% 
potrebbe essere il nome della variabi¬ 
le che rappresenta il conto delle buste 
paga in un programma di retribuzione 
del personale. 

È sovente necessario ricorrere, nel¬ 
l’ambito di un programma, a un certo 
numero di voci in relazione fra loro, 
trattando ogni voce esattamente nello 
stesso modo. Naturalmente a ciascu¬ 
na voce si potrebbe dare un nome di 
variabile completamente diverso. Co¬ 
sì potremmo avere variabili denomi¬ 
nate AA, BB, CC, AC, RM, e via di¬ 
cendo. 

Il problema in questo metodo è che 
le linee di codice Basic che trattano 
questi dati dovrebbero essere ripetute 
per ciascuna variabile di nome esclu¬ 
sivo. Si supponga per esempio che 
alla fine di una determinata routine si 
voglia aggiungere 1 a quattro diverse 
variabili. Se queste variabili avessero 
nome P1%, P2%, P3%, e P4% svol¬ 
gerebbero tale funzione nel program¬ 
ma le seguenti linee di Basic: 

1000 P1% = P1% + 1 
1010 P2% = P2% + 1 
1020 P3% = P3% + 1 
1030 P4% = P4% + 1 
Il numero delle linee ripetute au¬ 
menterebbe in maniera spettacolare 
con l’aumento del numero delle varia¬ 
bili trattate. Inoltre il trattamento più 
complicato, nel quale a ogni variabile 
si dovrebbe provvedere usando più di 
un’unica linea di istruzione, avrebbe 
come conseguenza un programma 
più lungo. 

Le matrici 

Una simile ripetizione non sarebbe 
necessaria se si potessero trattare 
tutte queste variabili come una fami¬ 
glia, e si potesse specificare ognuna 
di esse in un modo esclusivo tale da 
non richiedere per ognuna un proprio 
corredo esclusivo di istruzioni di trat¬ 
tamento. È qui che entrano in scena le 
matrici di variabili. 

Una matrice è una famiglia di varia¬ 
bili in relazione fra loro, che hanno 
tutte lo stesso «cognome». Ad esem¬ 
pio per telefonare a qualsiasi persona 
della famiglia Rossini si seguirebbe 
l’identica procedura: cercare «Rossi¬ 



Basic: seconda puntata. 

Ma non è solo una guida per chi comincia. 
Per esempio, la routine... 


ni» sulla guida telefonica, scegliere il 
nome giusto, sollevare il microtelefo¬ 
no e comporre il numero indicato. 

Ogni persona della famiglia Rossi¬ 
na è unica; e ognuna ha un nome di 
battesimo diverso, ma il procedimento 
per chiamare Rossini padre, Rossini 
madre o Rossini figlio, è lo stesso. 
Analogamente tutte le variabili di una 
matrice hanno lo stesso «cognome», 
ma ciascuna ha un nome di battesimo 
esclusivo. In questo caso il prenome è 
(e deve essere) un indice numerico. 

Dato che gli indici sono difficili da 
rappresentare sul video di un compu¬ 
ter, essi vengono mostrati per con¬ 
venzione, dopo il nome della variabile, 
come numeri racchiusi fra parentesi. 
Così A(1 ), A(2), A(3) e A(4) sono quat¬ 
tro variabili esclusive appartenenti al¬ 
la matrice A. Ma dato che i nomi di 
battesimo (indici) sono numerici, pos¬ 
siamo far cambiare i numeri al compu¬ 
ter in qualsiasi momento ci piaccia, e 
così chiamare qualunque membro 
della famiglia matrice con cui voglia¬ 
mo lavorare in qualunque istante de¬ 
terminato. 

Per vedere come lo si possa fare 
rifacciamo l’esempio dato sopra, nel 
quale quattro variabili venivano incre¬ 
mentate di 1. Questa volta si scelgano 
i nomi di variabile P%(1), P%(2), 
P%(3) e P%(4): Le parentesi cambia¬ 
no completamente il modo in cui il 
computer tratta queste variabili. Prima 
erano quattro voci totalmente prive di 
relazione. Adesso costituiscono quat¬ 
tro membri di una famiglia matrice. 
Per incrementare ciascuna delle quat¬ 
tro si impieghino le istruzioni che se¬ 
guono: 

1000 M% = 1 

1010 P%(M%) = P%(M%) 4- 1 

1020 M% = M% + 1 

1030 IF M% < 5 THEN GOTO 1010 

Questo esempio semplificato ri¬ 
chiede ancora quattro linee, ma le 
stesse quattro linee potrebbero incre¬ 
mentare 25 variabili al pari di quattro, 
dopo che il 5 della linea 1030 fosse 
stato cambiato in 26. Inoltre è in realtà 
una sola linea, la linea 1010, a incre¬ 


mentare di fatto le variabili, mentre il 
primo esempio richiedeva quattro li¬ 
nee. Il set di istruzioni di trattamento 
ha bisogno di comparire una volta so¬ 
la. Si noti anche che nella routine di 
trattamento l’indice non è un numero 
specifico, ma piuttosto una variabile 
intera (M%) la quale assume i valori 
appropriati che occorrono per riferirsi 
a una variabile esclusiva. Così la pri¬ 
ma volta che si percorre questa serie 
di istruzioni M% ha il valore di 1 e la 
variabile cui si fa riferimento è P%(1). 
Quando si raggiunge la linea 1030 
M% ha il valore di 2, così il program¬ 
ma torna in loop a linea 1010 e viene 
trattata P%(2). 

Allo stesso modo ci occupiamo di 
P%(3) e P%(4). Dopo l’incremento di 
P%(4) M% assume il valore di 5 e la 
linea 1030 permette al computer di 
passare oltre la linea 1030 e di uscire 
dal loop. 

Si sarebbe potuto semplificare ulte¬ 
riormente l’esempio dato sopra usan¬ 
do la struttura For... Next di loop come 
segue: 

1000 FOR M = 1 TO 4 
1010 P%(M) = P%(M) + 1 
1020 NEXT M 

In questo caso abbiamo dovuto 
usare una variabile reale (M) per il 
nostro contatore di loop, una limitazio¬ 
ne richiesta dall’Applesoft Basic. Ma 
ne parleremo in un altro articolo. 

I nomi delle variabili 
con indice 


Le restrizioni specifiche concernen¬ 
ti la denominazione delle variabili con 
indice sono identiche alle limitazioni 
che si applicano a qualsiasi variabile. 
Come ricordato nel precedente artico- 
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Per amare 
le matrici 


lo, certe parole riservate usate dal Ba¬ 
sic non possono essere impiegate co¬ 
me nome di variabile o parte di un 
nome di variabile. L’infrazione di que¬ 
sta regola sarà meno probabile se i 
nomi delle variabili saranno di uno o 
due caratteri soltanto (con il primo ca¬ 
rattere sempre alfabetico!), dato che 
solo poche parole riservate del Basic 
hanno appena due caratteri (IF, OR, 
FN, ON, AT, GR e TO). 

Inoltre, per quanto un nome di va¬ 
riabile possa essere più lungo e più 
descrittivo della voce che rappresen¬ 
ta, l’Applesoft Basic riconosce sola¬ 
mente i primi due caratteri come nome 
di variabile. Così ASSEGNO e AS¬ 
SUNTI sarebbero interpretati dal Ba¬ 
sic come la stessa variabile. 

Le variabili con indice possono es¬ 
sere assegnate a tipi specifici, proprio 
come le altre variabili. Si può include¬ 
re un segno di percentuale (%) dopo il 
nome di variabile (ma prima dell’indi¬ 
ce) per specificare che gli elementi 
neH’ambito della matrice devono es¬ 
sere trattati come numeri interi anzi¬ 
ché come numeri reali (quelli a punto 
decimale mobile). Fra il nome della 
variabile e l’indice deve essere pre¬ 
sente un segno di dollaro ($) per qual¬ 
siasi matrice i cui elementi siano strin¬ 
ghe. Così A(12), RT(235) e ZA(4) rap¬ 
presentano tutti elementi di matrice 
che sono numeri reali, A%(12), 
RT%(235) e ZA%(4) rappresentano 
elementi di matrice che sono numeri 


interi, e A$(12), RT$(235) e ZA$(4) 
rappresentano elementi di matrice 
che sono stringhe. 

Un punto interessante è che tutte le 
nove matrici presentate nel preceden¬ 
te paragrafo potrebbero coesistere 
nello stesso programma senza conflit- 
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to, dato che il computer tiene nota dei 
tipi come dei nomi delle variabili. Quel 
che è più, si potrebbero avere addirit¬ 
tura variabili senza indice denominan¬ 
te A, A%, A$, RT, RT%, RT$, ZA, 
ZA%, ZA$ all’interno dello stesso pro¬ 
gramma che comprende le nostre no¬ 
ve matrici; il computer tratterebbe tut¬ 
te le 18 variabili come voci diverse ed 
esclusive. Questo procura una note¬ 
vole flessibilità nella scelta dei nomi di 
variabile. 

Non è necessario che gli indici usati 
per una variabile con indice siano nu¬ 
meri interi, anche se il computer inter¬ 
preterà qualsiasi indice come intero 
troncando (escludendo) qualsiasi ci¬ 
fra che si trovi sulla destra di un punto 
decimale. 

Come dimostrato nell’esempio dato 
sopra gli indici possono essi stessi es¬ 
sere delle variabili. Talvolta è utile 
usare come indice una variabile con 
indice. Ne è esempio AA(P%(I)), dove 
P%(l) è l’indice di AA. 

Qualche volta può essere necessa¬ 
ria un’espressione matematica per 
determinare il valore di un indice. In tal 
caso è lecito includere come indice 
l’intera espressione. Il computer sti¬ 
merà dapprima l’espressione per de¬ 
terminare il valore dell’indice e poi 
continuerà. Così RF$(I+2*J + 1) è 
una variabile con indice valida. 

I computer si sconvolgono, però, se 
un indice di matrice è una stringa o è 
rappresentato da una variabile strin¬ 
ga. Gli indici negativi causano un 
messaggio di errore, mentre è accet¬ 
tabile un indice di 0. Se il valore di un 
indice eccede la specificazione della 
matrice fatta con l’istruzione di dimen¬ 
sionamento (vedere più avanti) verrà 
visualizzato un prompt di BAD SUB¬ 
SCRIPT (indice sbagliato). 

Come si può immaginare le mede¬ 
sime limitazioni riguardanti i valori ef¬ 
fettivi rappresentati da una variabile si 
applicano anche alle variabili con indi¬ 
ce. Una variabile intera con indice può 
spaziare in valore da -32767 a 
+ 32767; una variabile con indice 
stringa può spaziare in dimensione da 


stringa nulla (” ”) a stringa contenente 
255 caratteri; e una variabile numeri¬ 
ca con indice reale può spaziare in 
dimensione da circa 1x10 alla -38 s 
potenza a circa 1x10 alla +38 a poten¬ 
za, con i numeri maggiori di 999 miliar¬ 
di e minori di 0.01 rappresentati in no- 
tazione esponenziale (come 
8.9322E+22). 

Matrici multidimensionali 

Il tipo più semplice di matrice è quel¬ 
lo a una sola dimensione, talvolta defi¬ 
nita matrice lineare. Ogni elemento è 
rappresentato, in una matrice del ge¬ 
nere, da un nome di variabile seguito 
da un indice costituito da un solo nu¬ 
mero (vedere figura 1). 

Si possono immaginare tutti gli ele¬ 
menti di una simile matrice allineati 
uno dopo l’altro in sequenza lineare, 
con per primo l’elemento 1, per secon¬ 
do l’elemento 2, e così via. In realtà è 
pressoché a questo modo che i valori 
delle matrici lineari sono di fatto imma¬ 
gazzinati in memoria. 

È però spesso conveniente usare 
variabili con indice che abbiano più di 
una dimensione. Una matrice bidi¬ 
mensionale potrebbe anche rappre¬ 
sentare una tabella di valori contenen¬ 
te otto righe e cinque colonne (vedere 
figura 2). 

Ogni elemento nell’ambito di que¬ 
sta matrice è distinto dagli altri ele¬ 
menti da una combinazione di due in¬ 
dici anziché da uno solo. Uno degli 
indici rappresenta la riga alla quale 
l’elemento appartiene, mentre il se¬ 
condo indice rappresenta la colonna. 
Così V(1,1 ) potrebbe rappresentare il 
primo valore della nostra tabella, si¬ 
tuato a riga 1 e colonna 1. L’ultimo 
valore della tabella sarebbe V(8,5), si¬ 
tuato nell’angolo in fondo a destra. 

Adesso supponiamo che si voglia 
eseguire un calcolo che implichi tutti 
gli elementi della riga 3. Basta mettere 
il calcolo in un loop che faccia il ciclo 
da 1 a 5 (dato che ci sono cinque 
colonne) e usi M% come contatore di 
loop. Nell’ambito del loop appare nella 
sequenza di calcolo il nome di variabi¬ 
le V(3,M%). Ogni volta che viene per¬ 
corso il loop M% avrà un valore diver¬ 
so che rappresenta il numero della 
colonna, ma l’indice di riga non cam¬ 
bia mai. Ha sempre il valore di 3. 

Un altro esempio a dimostrazione 
dell’uso delle matrici multidimensio¬ 
nali si verifica qualche volta in un pro¬ 
gramma di gestione di data-base. 
Supponiamo che un programma del 
genere abbia sei distinte serie di dati, 
o file, per ciascuna voce specifica. 
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L%(0) 

L%(1) 

L%(2) 

L%(3) 

L%(4) 

L%(5) 

L%(6) 

L%(7) 

L%(8) 

L%(9) 

L%(10) 


Figura 1. Matrice lineare L%, comprendente 11 elementi. 



Inoltre supponiamo che per tener nota 
delle voci ogni file abbia bisogno di tre 
puntatori (che sono un po’ come dei 
segnalibri: servono a rintracciare i file 
desiderati). 

Il modo migliore per rappresentare i 
puntatori sarebbe quello di usare una 
matrice bidimensionale, P%(I,J), nel¬ 
la quale J potrebbe avere valori va¬ 
rianti da 0 a 5 per identificare lo speci¬ 
fico file con cui si tratta, e I potrebbe 
avere valori varianti da 0 a 2 per speci¬ 
ficare il tipo di puntatore usato. 

Ora ogni volta che occorre manipo¬ 
lare i tre puntatori di un determinato 
file (come è il caso quando una serie 
di dati viene cancellata dal sistema) 
basta identificare il valore che J deve 
avere (per esempio J = 3) e poi fare 
un GOSUB alla subroutine che mani¬ 
pola P%(0,J), P%(1,J) e P%(2,J). 

Il numero delle dimensioni di matri¬ 
ce permesso può essere maggiore di 
due, anche se raramente si incontre¬ 
ranno programmi che abbiano matrici 


con più di tre indici. Il limite massimo 
posto dall’Applesoft Basic è di 88 indi¬ 
ci, il che, ai fini pratici, è come non 
aver limiti. 

Può essere utile notare che con le 
matrici multidimensionali gli elementi 
specifici sono ancora immagazzinati 
in memoria uno dopo l’altro in maniera 
lineare. L’ordine in cui essi sono me¬ 
morizzati è basato sul principio per cui 
l’indice più a sinistra è ciclato più rapi¬ 
damente. Così una matrice tridimen¬ 
sionale, con due elementi in ciascuna 
dimensione, avrebbe gli elementi im¬ 
magazzinati in memoria nella se¬ 
quenza: 

B(0,0,0); B(1,0,0); B(0,1,0); B(1,1,0); 
B(0,0,1); B(1,0,1); B(0,1,1); B(1,1,1) 

La breve subroutine che segue (la 
quale impiega un loop For ... Next) 
mostra come una matrice stringa bidi¬ 
mensionale, X$(J,I), potrebbe essere 
inizializzata, impostando tutti i 15 ele¬ 
menti su zero. 

10 FOR I = 0 TO 2 


20 FOR J = 0 TO 4 
30 X$(J,I) = ” ” 

40 NEXT J 
50 NEXT I 

Si noti che il loop interno, il quale 
usa J come contatore di loop, è anche 
l’indice più a sinistra della variabile. 
Questo migliora l’efficienza del pro¬ 
gramma perché il loop che fa il ciclo 
più velocemente corrisponde all’indi¬ 
ce che fa il ciclo più velocemente. 

Come riservare gli spazi 

C’è una caratteristica importante 
che distingue le variabili con indice 
dalle variabili senza indice, ed è il fatto 
di dover riservare spazio in memoria 
per qualsiasi matrice che si intenda 
usare nell’ambito del programma. 
Supponiamo che ci si proponga di im¬ 
magazzinare in memoria 250 nomi. 
Potremmo voler chiamare questa ma¬ 
trice NM$, così avremmo elementi 
che andrebbero da NM$(0) a 
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V(l,l) 




V(l,5) 

2 

V(2,l) 





3 

V(3,l) 

V(3,2) 

V(3,3) 

V(3,4) 

V(3,5) 

4 

V(4,l) 





5 

V(5,l) 





6 

V(6,l) 





7 

V(7,l) 





8 

V(8,l) 




V(8,5) 


Figura 2. Matrice bidimensionale, V, comprendente 48 elementi. In 
questo esempio vengono mostrati solo 40 elementi, dato che di ciascuna 
dimensione non viene usato l’elemento zero. La scelta di presentare 
per primi gli indici di riga è stata arbitraria. 


NM$(250). (Di fatto questo ci dà 251 
elementi perché conta anche lo 0). 
Prima che il computer incontri il primo 
riferimento a NM$ nel nostro program¬ 
ma dobbiamo dire al computer di ri¬ 
servare spazio per la matrice NM$, e 
quanti membri della famiglia si pre¬ 
senteranno. Questo procedimento è 
noto come dimensionamento della 
matrice. 


Ogni matrice airinterno del nostro 
programma deve essere dimensiona¬ 
ta a dovere. Si possono dimensionare 
diverse matrici nell’ambito della stes¬ 
sa istruzione di dimensionamento, ma 
si può dimensionare una matrice solo 
una volta nell’ambito di un program¬ 
ma. I tentativi di ridimensionare una 
matrice fermeranno il programma. 
(Certi Basic permettono di cancellare 


una matrice dalla memoria e poi ridi¬ 
mensionarla. Non lo fa l’Applesoft 
Basic). 

Di solito il programmatore dimen¬ 
sionerà tutte le matrici in una delle 
prime linee di un programma sbrigan¬ 
do così la faccenda. L’istruzione che 
dimensiona le matrici è l’istruzione 
DIM, seguita da ciascun nome di ma¬ 
trice e dalla sua dimensione massima 
(o dimensioni massime), con una vir¬ 
gola a separare ciascuna voce dalle 
altre. Qui sotto ecco vari esempi di 
istruzioni DIM esatte. 

DIM A(15) 

DIM AR$(22), B%(12), FF(100) 

DIM P%(12,3), A%(25,10,2), 
GM$(20,3) 

Il primo esempio dice al computer di 
riservare 16 (15 4- lo 0) elementi in 
una matrice reale il cui nome è A. Il 
secondo esempio dimensiona tre ma¬ 
trici differenti. La prima è una matrice 
stringa, AR$, dimensionata per 23 
elementi. La seconda è una matrice 
intera, B%, dimensionata per 13 ele¬ 
menti, mentre la terza, FF, è una ma¬ 
trice reale, dimensionata per 101 ele¬ 
menti. (Si ricordi che il numero specifi¬ 
cato nell’istruzione DIM è l’indice 
massimo consentito per quella matri¬ 
ce nell’ambito del programma. Se si 
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NEWS! APPLE 


INTERFACCIA PARALLELA GRAFICA PER STAMPANTE LOW COST 125.000 
INTERFACCIA PARALLELA SUPER PRINT MASTER III incluso cavo 2 mt. soft¬ 
ware, buffer 256 k, ecc. (speficare stampante da abbinare} 283.000 

SUPER PRINT MASTER PER STAMPANTE A COLORI IDS 470.000 

TELERASTER SCHEDA INTERFACCIA PER TELECAMERA (Software di abbi¬ 
namento: GRAFPAK cod. 300) 655.000 

SCHEDA 16 KILOBYTES MEMORY CARD (PASCAL) 130.000 

SINGOLO DRIVE 5” 1/4 140 K 675.000 

SINGOLO DRIVE 5” 1/4 140 K SUM 675.000 

DOPPIO CONTROLLER PER DRIVE 5” e SUM 115.000 

DOPPIO DRIVE 80/35 SUM DOPPIA DENSITÀ, CAPACITÀ TOTALE 655.360 B 
incluso alimentatore switching e doppio controller 2.550.000 

SOFTWARE PER OPERARE IN PASCAL E CP/M per unità Doppio Drive 80/35 

62.000 

DOPPIO DRIVE 80/35 SUM DOPPIA DENSITÀ, DOPPIA FACCIA capacità totale 
1.2 Megabytes NOV. 83 

SCHEDA DIGICODER INTERFACCIA PER ENCODER OTTICI 2 CANALI fino a 
100 MILIONI DI PUNTI • SOFTWARE INCLUSO 965.000 

PROGRAMMATORE DI EPROM, che include SCHEDA PARALLELA I/O FLAT CA¬ 
BLE E SCHEDA PROGRAMMER CON ZOCCOLO (inseribile in contenitore ester¬ 
no dell’APPLE) 380.000 

SCHEDA ESPANSIONE 128 K 475.000 

CONVERTITORE ANALOGICO DIGITALE A12 BIT, 4 CANALI DI INPUT E 4 CON¬ 
TATTI DI RELAIS CON OROLOGIO CALENDARIO 560.000 

CONVERTITORE A/D A 12 BIT GUADAGNO PROGRAMMABILE, 2 CANALI IN¬ 
PUT DIFFERENZIALI, AMPLIFICATORE A GUADAGNO PROGRAMMABILE 

620.000 

CONVERTITORE A/D 12 BIT VELOCE (25MS) 8 CANALI DI INPUT COMPLETA¬ 
MENTE DIFFERENZIALI, AMPLIFICATORE CON GUADAGNO PROGRAMMABI¬ 
LE 1.500.000 

SCHEDA 80 COLONNE “ SCREEN MASTER” COMPATIBILE CON TUTTI I LIN¬ 
GUAGGI BASIC, PASCAL, CP/M, FORTRAND, APPLE WRITER. VISICALC, ECC. 

415.000 

BUFFER DI LINEA PER STAMPANTE IN CONTENITORE ESTERNO, INCLUSI 
2 CAVI E CONNETTORE • ALIMENTATORE - mod. 16 K CENTRONICS TO CEN¬ 
TRONICS ESPANDIBILE A 48 ■ 96 K - RS232 • IEEE 488 440.000 

INTERFACCIA SERIALE RS232 DI COMUNICAZIONE CON BAUD RATE SELE¬ 
ZIONABILE, INCLUSO CAVO E DB 25 260.000 

SCHEDA Z80 CP/M INCLUSI 2 VOLUMI E SOFTWARE 370.000 

SCHEDA PAL PER COLLEGAMENTO MONITOR COLORI 165.000 

SCHEDA VGP VECTOR GRAPHIC PROCESSOR RISOLUZIONE 512 x 512 PIXEL 
2 PAGINE DI MEMORIA (monocromatica) 1.750.000 

SCHEDA VGP 64 8 COLORI INCLUSO HOST ADAPTOR 3.500.000 

SCHEDA VGP 64 64 COLORI INCLUSO HOST ADAPTOR 4.050.000 
SCHEDA VGP 64 4096 COLORI INCLUSO HOST ADAPTOR 8.000.000 
OPZIONE PER VGP 64 EXTERNAL SYNC INPUT 595.000 

SOFTWARE DI UTILITIES PER VGP MONICROMATICA 140.000 

SOFTWARE DI UTILITIES PER VGP 64 COLORI 140.000 

SOFTWARE CAPITOL 3 D VISUALISATION 2.500.000 

SOFTWARE TRISOFT AGE (anche a colori) 2.500.000 

SCHEDA OROLOGIO CALENDARIO INCLUSI DISPLAY PER KIT cod. 270 

OTT. 83 

PIASTRA CPU 48 K MEMORIA RAM MICROPROCESSORE 6502 580.000 

TASTIERA ALFANUMERICA CON PAD NUMERICO REPEAT AUTOMATICO SU 
TUTTI I TASTI USCITA ASCII 8 BIT 210.000 

ALIMENTATORE +5-5V, +12-12V.CON FILTRI ANTIDISTURBO TENSIO¬ 
NE AUMENTAZIONE 220 VOLT 50 HZ 10 AMP. 160.000 

ALIMENTATORE TAMPONE CON BATTERIE RICARICA AUTOMATICA 

380.000 

CABINET METALLICO INCLUSO KIT DI MONTAGGIO PER ELAB. 205.000 
MICROELABORATORE APPLE COMPATIBILE COMPLETO MONTATO E COL¬ 
LAUDATO A VENTILAZIONE FORZATA, INCLUSI 3 MANUALI IN ITALIANO 

1.350.000 

PROLUNGA SLOT LUNGHEZZA CA. 15 cm. ABBINABILE A QUALUNQUE SCHE¬ 
DA IN COMMERCIO 70.000 

SCHEDA WILD CARD PER DUPLICAZIONE.DISCHETTI PROTETTI 355.000 
GENERATORE DI PATTERN PER DEMO STAMPANTI, PLOTTERS, ECC. IDEA¬ 
LE PER COMPUTER SHOP E FIERE • DA 1 A 4 K EPROM 120.000 

TELECAMERA PROFESSIONALE per SCHEDA TELERASTER ALIM. 220 V. CON 
OBIETTIVO 16 MM. CON DIAFRAMMA 580.000 

SYMBFILE HARD DISK WINCHESTER 5 M. BYTE 5.900.000 

SYMBFILE HARD DISK WINCHESTER 10 M. BYTE 7.150.000 

SYMBFILE HARD DISK WINCHESTER 20 M. BYTE 9.530.000 

SYMBSTORE TAPE STREAMING BACK UP 10 M. BYTE 5.720.000 

MONITOR FOSFORI VERDI RACK METALLICO 9” 225.000 

MONITOR FOSFORI VERDI RACK METALLICO 12” 265.000 

MONITOR COLORI BARCO INCLUSA SCHEDA INTERFACCIA COLORE 

910.000 

PLOTTER WATANABE 6 PENNE FORMATO A 3 1.690.000 

JOYSTICK CON CAVO DI I/O GAME E DUE INTERRUTTORI 71.500 

STAMPANTI OKI SERIE MICROLINE 

ML 80 (80 cps - 80 cl) SEMIGRAFICA FRIZ. + P. FEED -I- RULLO PARALLELA 

635.000 

ML 82/A (120 cps • 80 cl) SEMIGRAFICA FRIZ. + P. FEED PARALLELA + RS 
232 1200 BAUD 960.000 

ML 92 (160 cps ■ 80 cl) GRAFICA ■ N.L.Q. • FRIZ. + P. FEED PARALLELA 

1.290.000 

ML 83/A (120. cps • 132 cl) SEMIGR. FRIZ. + TRATTORE PARALLELA + RS 
232 1200 BAUD 1.500.000 

ML 93 (160 cps • 132 cl) GRAFICA • N.L.Q. • FRIZ. + TRATTORE PARALLELA 

1.880.000 

ML. 84 (200 cps • 132 cl) GRAFICA 6 N.L.Q. • FRIZ. + TRATTORE PARALLELA 

2.100.000 

OPZIONE GRAFICA PER ML 82/A • 83/A INCLUSO MANUALE 50.000 
INTERFACCIA IEEE 488/OKI 265.000 

SOFTWARE PERTEL PER APPLE 

MINUSCOLE E MAIUSCOLE PER APPLE II 60.000 

EDITOR C.N. SOFTWARE TRANSCODIFICA EIA-150 EDITING DI BANDA PER¬ 
FORATA PERF./LETTURA 805.000 

GRAFPAK HARD COPY VIDEO PER STAMPANTI 75.000 

MAILING LIST (1000 NOMINATIVI PER DISCHETTO) 60.000 

CALCOLO AREA CON JOYSTICK PER SCHEDA TELERASTER 83.500 
BIT STICK 1000 POTENTE SOFTWARE GRAFICO INTERATTIVO INCLUSO CON¬ 
TROLLER E MANUALI IN ITALIANO 2.025.000 

SOFTWARE DI OUTPUT PER PLOTTER WATANABE CALCOMP H.P. 870.000 
PACKAGE APPLICATIVO PER ARCHITETTURA 125.000 

PACKAGE APPLICATIVO PER IDRAULICA 125.000 

PACKAGE APPLICATIVO PER ELETTRONICA 125.000 

PACKAGE APPLICATIVO PER CHIMICA 125.000 
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10 OIH P$(6),M(à) 

15 DATA NOME,VIA,CITTA,STATO. 

CODICE,N. 

20 FOR I =1 TO 6 
22 READ P$(I) 

25 NEXT I 
30 GOSUB 1000 
1000 FOR I = 1 TO 6 
1010 W(I) = 1 * 

1020 NEXT 1 
1030 KX = 1 
1040 HOME 

1050 FOR 1 = 1 TO KX 
10Ó0 IF I = 7 THEN GOTO 1110 
1070 PRINT I:’. ';P4(I);'; *; * 
1080 PRINT ÌAB(20>i’ ■; 

1090 IF I > KX THEN PRINT D$(I) 
: GOTO 1110 
1100 INPUT W(I) 

1110 NEXT I 

1120 IF FX = 1 THEN GOTO 1200 
1130 IF KX = 6 THEN FA = 1 
1140 KX = KX ♦ 1 
1150 GOTO 1040 

1200 PRINT *= = = = = = = = = = 


1210 PRINT 'BATTI IL NUMERO 
DELLA VOCE DA CORREGGERE' 

1220 PRINT 'OPPURE BATTI '0' SE 
VA BENE COSI"; 

1230 INPUT ZX 

1235 IF ZX < 0 OR ZX > é THEN 
GOTO 1290 

1240 IF ZX < >0 THEN GOTO 1270 
1250 FX = 0 
12éO RETURN 

1270 PRINT 'VOCE PRECEDENTE: ' 
iOt(ZX);' NUOVA VOCE: '; 

1280 INPUt D$(ZX) 

1290 KX = 7 
1300 GOTO 1040 


dimensiona la matrice usando il nu¬ 
mero N si hanno N + 1 elementi com¬ 
prendendo l’elemento zero). 

Anche il terzo esempio dimensiona 
tre matrici, e in questo esempio tutte e 
tre le matrici sono multidimensionali. 
La prima matrice, P%, ha due dimen¬ 
sioni e riserva spazio per un totale di 
52 elementi (13 X 4). Il valore più gran¬ 
de permesso per i due indici è 
P%(12,3). 

La seconda matrice dimensionata 
in questa istruzione è anch’essa una 
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matrice intera, ma ha tre dimensioni e 
prescrive che sia riservata memoria 
per un totale di 858 elementi di matri¬ 
ce (26 X 11 X 3). La terza matrice da 
dimensionare è una matrice stringa 
che contiene 84 elementi (21 X 4). 

Le variabili possono definire le di¬ 
mensioni delle matrici in un’istruzione 
DIM, ma si deve assegnare un valore 
legale definito alla variabile prima del 
suo impiego nella istruzione DIM. Per 
esempio DIM A$(J), B(J,5) è un’istru¬ 
zione di dimensione valida se in pre¬ 
cedenza J è stato assegnato a un va¬ 
lore intero positivo, prima che si rag¬ 
giunga questa istruzione. 

Per quanto si possa usare un segno 
di due punti per separare più istruzioni 
Basic differenti nell’ambito di una li¬ 
nea, è preferibile assegnare all’istru¬ 
zione DIM una linea interamente sua 
e dimensionare tutte le matrici che si 
intende usare dentro un programma 
in quell’unica linea. Qualche compu¬ 
ter esige che l’istruzione DIM sia in 
una linea a sé stante. L’Applesoft Ba¬ 
sic permette anche diverse istruzioni 
DIM, ma una determinata variabile 
non può essere dimensionata più di 
una volta in un programma. 

L’Applesoft Basic concede un’ec¬ 
cezione alla regola che richiede il di¬ 
mensionamento delle matrici. Posso¬ 
no essere usate dentro un program¬ 
ma senza essere prima dimensionate 
le piccole matrici a una dimensione 
che comprendono meno di 11 ele¬ 
menti (indici che vanno da 0 a 10). Il 
computer riserverà automaticamente 
spazio per undici elementi la prima 
volta che si ricorre a uno degli elemen¬ 
ti di una matrice del genere. Tuttavia 
ai fini della documentazione è meglio 
dimensionare anche queste piccole 
matrici all’inizio del programma. 

Un’annotazione a proposito delle 
stringhe e dell’istruzione DIM come si 
applica a certi sistemi di computer di¬ 
versi dall’Apple II e dall’Applesoft. 
Qualche sistema richiede che ogni 
stringa impiegata venga specificata 
nell’ambito di un’istruzione DIM, dan¬ 
do quale dimensione della stringa il 
massimo numero di caratteri riservato 
per quella stringa. 

Così DIM A$(12) non farebbe riferi¬ 
mento a una matrice di 13 elementi, 
ma invece indicherebbe di riservare 
12 byte di memoria per la variabile A$ 
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senza indice. Un impiego del genere 
non è comune negli odierni sistemi di 
personal computer, ma la sua cono¬ 
scenza può aiutare qualche volta a 
convertire un programma più vecchio 
per farlo funzionare nel proprio si¬ 
stema. 

Limitazioni alle 
dimensioni delle matrici 


Le dimensioni delle matrici sono li¬ 
mitate solo dall’estensione della me¬ 
moria disponibile dopo che il program¬ 
ma è stato caricato nella RAM. Ogni 
matrice esige un po’ di spazio di me¬ 
moria sopra di sé per la memorizza¬ 
zione di informazioni riguardanti la 
matrice. Per le variabili numeriche 
questo «overhead» consuma due by¬ 
te per immagazzinare il nome della 
matrice, due byte per specificare l’am¬ 
piezza della matrice, un byte per il 
numero di dimensioni usato dalla ma¬ 
trice e due byte per ciascuna dimen¬ 
sione per immagazzinare l’ampiezza 
massima di quella particolare dimen¬ 
sione. 

Pertanto una matrice a una dimen¬ 
sione richiede sette byte per l’intesta¬ 
zione, una matrice a due dimensioni 
richiede nove byte e così via. In ag¬ 
giunta, beninteso, ogni elemento ha 
bisogno di spazio per immagazzinare 
il suo valore specifico. Questo spazio 
ammonta a due byte per ciascun ele¬ 
mento intero e cinque byte per cia¬ 
scun elemento numerico reale. 

Le variabili stringa con indice hanno 
le stesse esigenze di spazio in alto 
delle variabili numeriche con indice, 
assieme ad altri tre byte per elemento 
che mostrano la lunghezza di quel 
particolare elemento (un byte) e la lo¬ 
cazione della stringa nell’area di me¬ 
morizzazione delle stringhe (due 
byte). 

Naturalmente nell’area di memoria 
delle stringhe ogni stringa occupa un 
byte di memoria per ciascun carattere 
della stringa. A differenza delle varia¬ 
bili numeriche, che hanno i propri va¬ 
lori immagazzinati nella stessa area di 
memoria delle informazioni d’intesta¬ 
zione delle variabili, i valori specifici 
per le stringhe sono archiviati insieme 
in una regione della memoria che con¬ 
duce in giù da quel qualsiasi valore sul 
quale sia stato impostato HIMEM. 

Le specifiche locazioni per la me¬ 
morizzazione delle variabili e le loca¬ 
zioni di memoria si possono ricavare 
dall’App/esoft Basic Programming 
Reference Marmai (edizione 1981 by 
Apple Computer Ine.), pagine 127 e 
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137; oppure nel secondo volume del¬ 
l’edizione ’82, a pag. 273. 

Alle stringhe viene assegnato spa¬ 
zio dinamicamente nell’area di memo¬ 
rizzazione delle stringhe. Di mano in 
mano che lo spazio per la memorizza¬ 
zione delle stringhe comincia a riem¬ 
pirsi il computer resterà «sospeso» 
(fermerà il trattamento del program¬ 
ma) per un breve tempo nel quale 
esplorerà le stringhe, alla ricerca delle 
vecchie stringhe i cui nomi di variabile 
sono stati riassegnati. Il computer 
scarta queste stringhe e riavvicina le 
stringhe restanti, lasciando così libero 
altro spazio di memorizzazione delle 
stringhe. 

Questo trattamento è automatico, 
ma il programmatore lo può forzare 
impiegando l’istruzione: X = FRE(O). 
L’efficienza del programma migliorerà 
alquanto se si inserirà questa istruzio¬ 
ne in vari punti di un programma com¬ 
plicato che riassegni frequentemente i 
valori delle stringhe. 


Come semplificare 
l’immissione dei dati 


Le procedure di immissione dei da¬ 
ti, in particolare nelle situazioni di ge¬ 
stione di data base, richiedono solita¬ 
mente la predisposizione di un modu¬ 
lo da riempire sul video comunemente 
detto maschera, con la richiesta all’o¬ 
peratore di introdurre le informazioni 
una voce alla volta, e di correggere gli 
eventuali errori prima di memorizzare 
i dati su dischetto. L’impiego di varia¬ 
bili con indice per rappresentare i 
prompt visualizzati e i dati di input 
semplifica il procedimento di visualiz¬ 
zazione della maschera d’immissione 
dei dati e di correzione eventualmente 
necessaria delle informazioni intro¬ 
dotte. 

Il listato di programma illustra il mo¬ 
do in cui lo si può fare. Vengono usate 
due matrici. La prima, P$, contiene i 
prompt per ciascuna delle sei voci di 
immissione dei dati. La seconda, D$, 
contiene l’input dei dati da parte dell’o¬ 
peratore per ciascuna delle sei voci. 
Questo esempio non fa uso di P$(0) e 
D$(0). La linea 10 dimensiona le due 
matrici. 

Le linee 20-25 usano l’istruzione 
Read... Data in un loop For... Next per 
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caricare nei sei elementi di P$ gli adat¬ 
ti prompt di visualizzazione. La routine 
di immissione dei dati è una subrouti¬ 
ne che il programma principale può 
chiamare quando occorre, usando 
un’istruzione GOSUB 1000. 

Quando la maschera è stata riempi¬ 
ta e corretta, l’operatore introduce uno 
0 e la sequenza di trattamento torna al 
programma principale dalla linea 
1260. La figura 3 è un diagramma di 
flusso della subroutine. 

La prima cosa che la subroutine fa è 
cancellare gli eventuali valori di riporto 
che si trovassero nella matrice D$. Poi 
K%, il contatore d’immissione dei dati, 
viene inizializzato a un valore di 1, lo 
schermo viene sgomberato e viene 
introdotto il loop di visualizzazione (li¬ 
nee da 1050 a 1110). In questa parti¬ 
colare subroutine sono visualizzate 
solo le voci che portano alla voce che 
viene presentemente introdotta, essa 
compresa. Pertanto la prima volta che 
si incontra il loop K% ha un valore di 1, 
così è visualizzato soltanto il prompt 
P$(1). 

Inoltre, dato che I è anch’esso 
uguale a 1, la linea 1090 viene saltata 
e si incontra la linea 1100; a questo 
punto all’operatore viene chiesto di in¬ 
trodurre D$(1 ). A questo punto vengo¬ 
no saltate anche le linee 1120 e 1130, 
e il contatore viene incrementato a 2 
nella linea 1140. 

Il programma ritorna nel suo ciclo 
alla linea 1040, pulendo lo schermo e 
incontrando nuovamente il loop di in¬ 
troduzione dei dati. Questa volta K% 
= 2, così quando I = 1 (la prima volta 
che il loop viene percorso) viene ese¬ 
guita la linea 1090 e D$(1 ) viene sem¬ 
plicemente stampata sullo schermo. 
La seconda volta che viene fatto il 
loop la linea 1090 viene saltata e 
D$(2) deve essere introdotta dall’ope¬ 
ratore. 

Questo ciclo viene ripetuto per un 
totale di sei volte. Dopo la sesta volta 
K% ha un valore di 6 e viene incontra¬ 
ta la linea 1130 che imposta il nostro 
flag di «end», F% = 1. K% è poi incre¬ 
mentato ancora una volta dalla linea 
1140, a un valore di 7, e si entra nel 
loop un’ultima volta. Questa volta ven¬ 
gono visualizzate tutte le sei voci d’im¬ 
missione dei dati, esattamente come 
introdotte, e la settima volta che viene 
percorso il loop, quando I = 7, si in- 


1 contra la linea 1060, il che forza il pro- 
•gramma al bypass delle procedure di 
••immissione dei dati e a saltar fuori del 
loop. 

Questa volta però è stato impostato 
il flag di «end», F%, così si incontra la 
linea 1120, che forza un salto alla li¬ 
nea 1200 e alla parte della subroutine 
che tratta le correzioni. Le linee 1210 
e 1220 visualizzano le istruzioni di 
prompt per l’operatore. Se viene intro¬ 
dotto uno zero il flag viene azzerato 
(F% = 0) e il computer torna al pro¬ 
gramma principale. 

Se l’operatore introduce un altro nu¬ 
mero (sono permessi solo 1-6) viene 
visualizzata l’immissione precedente, 
D$(Z%), e viene fatta richiesta 
(prompt) deH’immissione giusta (IN¬ 
PUT D$(Z%)). A questo punto K% è 
impostato su 7 e viene fatto un salto 
indietro alla routine di visualizzazione 
sullo schermo, che cancella il vecchio 
modulo di immissione di dati e rjvisua- 
lizza il modulo come è stato corretto, 
tornando ancora una volta alla routine 
di correzione delle voci. 

A questo punto dovrebbe essere 
chiaro che l’impiego delle variabili con 
indice semplifica grandemente il com¬ 
pito di programmare procedure piutto¬ 
sto complesse. La subroutine riporta¬ 
ta sopra non richiede che ognuna del¬ 
le sei voci sia trattata in modo esclusi¬ 
vo, sia nello stadio della introduzione 
dei dati sia in quello della correzione. 
Inoltre se si devono aggiungere altre 
voci i soli cambiamenti che occorre 
apportare al programma sopra de¬ 
scritto sono quelli degli effettivi numeri 
usati, che sono basati sui limiti massi¬ 
mi delle nostre matrici. Queste linee 
che hanno bisogno di essere cambia¬ 
te sono le linee 15, 20, 1000, 1060, 
1130, 1235 e 1290. Non occorre ag¬ 
giungere altre linee. 

L’istruzione di Input e i test delle 
linee 1230-1240 potrebbero essere 
sostituiti con una subroutine di rispo¬ 
sta data con la pressione di un solo 
tasto, che è stata presentata nel pre¬ 
cedente articolo (Applicando n. 2, 
pag. 35). In tal caso si devono usare le 
seguenti linee: 

1230 ZZ% = ”0123456” 

1235 GOSUB 30 
1238 Z% = Z% - 1 

Questo presuppone che siano in¬ 
cluse nel programma le linee da 30 a 
37 del listato del precedente articolo. 

2. Continua 

Nella prossima puntata le istruzioni 
di loop For...Next e le istruzioni di 
input Read...Data. 


® 1983 by Incider e Applicando 
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Poche domande sullo schermo, per rispondere alle quali 
casta una segretaria. Ed ecco pronto in cinque minuti un documento 
di più pagine personalizzato scegliendo fra decine di opzioni diverse. 
E stampato nel numero di copie desiderato. 

Signorina 
ci pensi lei 

P er predisporlo una volta per tutte 
occorrono un Apple //e con due 
drive, una stampante, un Apple Writer 
// (il nuovo software di word-proces¬ 
sing per Apple //e), un paio d’ore di 
tempo e questa copia di Applicando. 
Poi, una volta impostato, stampare un 
contratto su misura, personalizzato al 
massimo e pronto da firmare pochi 
minuti dopo aver definito con la con¬ 
troparte gli ultimi dettagli, diventa un 
gioco da ragazzi. 

Il programma, scritto in WPL (la 
Word-processing language compresa 
nell’Apple Writer //), è stato costruito 
sulle esigenze di una società di servizi 
che stipula una ventina di contratti al 
mese. Ma ne suggeriamo la prova an¬ 
che a chi, occupato in tutt’altra attività, 
un contratto non sa neppure cosa sia. 
Studiandone il funzionamento, infatti, 
sarà facilissimo immaginare buona 
parte delle opportunità offerte dal 
WPL, per l’automazione del lavoro 
d’ufficio. 

Qualche indicazione preliminare 
per chi con il WPL non ha nessuna 
dimestichezza. Chi sa usare un pro¬ 
gramma di word-processing non avrà 
nessuna difficoltà a scrivere in WPL. 
Le istruzioni infatti vanno scritte una 
dopo l’altra (e con un Return fra una e 
l’altra), esattamente come se si trat¬ 
tasse di un normalissimo testo. E co¬ 
me un normalissimo testo vanno sal¬ 
vate sul dischetto. L’unica accortezza 
sta nel fatto che, iniziando ogni riga, 
per prima cosa occorre battere uno 
spazio (salvo che per le eccezioni più 
sotto indicate). Un programma in WPL 
però non può essere più lungo di 2024 
caratteri: da qui la necessità, per le 
esigenze più complesse, di concate¬ 
nare fra loro più programmi. 

Dunque: abbiamo a che fare con 
una serie di normalissimi testi. Solo 
che alcuni si comportano esattamente 
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come testi (per esempio il testo vero e 
proprio del contratto, almeno in tutte le 
sue parti fisse); altri, quelli cioè scritti 
secondo la sintassi del WPL, si com¬ 
portano come un programma che, nel 
nostro caso, svolge le seguenti fun¬ 
zioni: 

1) Preleva dal dischetto e carica in 
memoria il testo base del contratto. 

2) Chiede all’operatore nomi e dati 


dell’altro contraente. 

3) Offre all’operatore un menù sin¬ 
tetico in base al quale scegliere quali 
particolari servizi devono essere pre¬ 
visti. 

4) Inserisce nel contratto in prepa¬ 
razione una descrizione dettagliata 
dei servizi prescelti. 

5) Chiede e inserisce al punto giu¬ 
sto altri dati da definire volta per volta 


Con la presente lettera accordo, tra ABCD spa, Mia Bianchi 33, 
Milano,e (contra), (indir), si stabilisce quanto segue: 

3, (centra) attida ad ABCD spa, che accetta, l'incarico di 
(oggetto). 

1.1 Per incarico si intende: 

Figura 1. Questo è il testo registrato sotto il nome di STARTCONTRACT. 
Le parole chiave sono (contra), (indir), (oggetto). Il programma di WPL 
permette di richiedere all’operatore al video la loro definizione in termini 
reali (nome e cognome del contraente, o la ragione sociale, se si tratta di 
una ditta, il suo indirizzo, l’oggetto dell’incarico che riguarda questo 
contratto) e poi esegue in automatico l’appropriata sostituzione. 


(prima) 

-qui bisogna inserire il testo della prima opzione. 


Questa e le i 

vuole. 

(seconda) 

altre opzioni possono essere lunghe quanto si 

-qui 

(terza) 

la seconda. 

-qui 

(quarta) 

la terza. 

-qui 

(quinta) 

la quarta. 

-qui 

(sesta) 

la quinta. 

-qui 

(settima) 

la sesta. 

-qui 

(ottava) 

la settima. 

-qui 

(nona) 

l'ottava. 

-qui 

(decima) 

la nona. 

-qui 

(undicesima) 

la decima. 


-qui l'undicesima. Questa opzione può benissimo non 
essere l'ultima, purchu allora si preveda nel programma 
l'opzione o le opzioni in pi\ Naturalmente le opzioni possono 
anche essere meno di li, purchò si cancelli quella parte di 
programma relativo alle opzioni che non si vogliono prevedere. 


Figura 2. In un altro file contraddistinto dal nome CONTROPZ sono 
registrate le opzioni tra le quali l’operatore al video può scegliere 
quelle da inserire nel contratto, semplicemente indicando, 
leggendoli dal menù, i numeri che le contraddistinguono. 
Attenzione: affinché possano essere inserite nel contratto 
senza l’etichetta (l’indicazione fra parentesi acute) che le precede, 
devono essere scritte esattamente come appaiono qui. 


quali date di consegna, termini di pa¬ 
gamento, ecc. 

6) Permette di rivedere sullo scher¬ 
mo la versione completa del contratto. 

7) Chiede il numero di copie da 
stampare, le stampa e archivia su di¬ 
schetto il nuovo contratto. 

I testi qui utilizzati sono puramente 
esemplificativi. La comodità di questo 
programma sta nel fatto che ciascuno, 
dopo averlo provato sul suo Apple //e, 
con la stessa facilità con la quale mo¬ 
dificherebbe un testo sul video può 
sostituire i nostri esempi con le parole 
che realmente gli servono per il suo 
lavoro. 

Una volta completata la trascrizione 
e il salvataggio su dischetto del pro¬ 
gramma in tutte le sue parti, e dei testi 
relativi, per vederlo funzionare baste¬ 
rà, sempre da Apple Writer //, battere 
Ctrl-P e scrivere DO CONTRATTO, 
D2 (o DI nel caso improbabile e scon¬ 
sigliabile che abbiate salvato il tutto 
sul Drive 1, dove dovrebbe stare l’Ap¬ 
ple Writer //). 

I preliminari 

Prima di passare alla realizzazione 
del programma è bene preparare i te¬ 
sti che poi, con un opportuno lavoro di 
personalizzazione e di accoppiamen¬ 
to per mezzo del WPL, formeranno il 
contratto stampato. Per necessità 
operativa dobbiamo spezzare il con¬ 
tratto tipo in tre parti. La prima parte 
(figura 1), che salviamo con il nome 
STARTCONTRACT, D2, può essere 
lunga quanto si vuole e in essa vanno 
espressi tutti i concetti e tutte le varia¬ 
bili (fra parentesi acute) del contratto, 
fino al punto in cui devono essere in¬ 
serite le opzioni. 

Le opzioni (figura 2), che salviamo 
con il nome CONTROPZ, D2, come 
dice la parola stessa, sono quei para¬ 
grafi che non necessariamente devo¬ 
no figurare tutti nel contratto, ma sul 
totale dei quali dobbiamo poter sce¬ 
gliere quelli che di volta in volta voglia¬ 
mo inserire. 

Infine, l’ultima parte del contratto 
(figura 3), che salviamo con il nome 
ENDCONTRACT, D2, deve contene¬ 
re la parte finale, anche questa con 
tutte le variabili necessarie. 

II programma 

II comando PND, che generalmente 
si mette in testa a ogni programma 
WPL, permette, come l’istruzione 
NEW in Basic, di liberare la memoria 
del computer da eventuali altri pro¬ 
grammi. 
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2.0 Caratteristiche tecniche dell' oggetto dell'incarico: 
(caratteristiche). 

3.0 (contra) si impegna a ecc. ecc. 

3.1 ABCD spa prevede che ecc. ecc. 

3.2 (contra) riceverà tempestivamente una ecc. ecc. 

4.0 Termini di consegna: (termini). 

5.0 A totale compenso del punto 1.1 del presente contratto, ad 
ABCD spa verrà corrisposta la somma di Lire (somma). 


5.1 Condizioni di pagamento: (condizioni). 

5.3 A conclusione dell'incarico, (contra) invierà ad ABCD spa 
ecc. ecc. 

é.0 Resta esclusa dal presente accordo ecc. ecc. 

7.0 Unico competente in caso di controversia Q il Foro di 
Milano. 

Milano, (data) 

Letto, approvato e sottoscritto 


(contra) 

.FF 

ABCD spa 

Figura 3. Ecco la parte finale del contratto, registrata nel file 
ENDCONTRACT. Anche qui compaiono alcune parole chiave che 
vengono sostituite automaticamente con le indicazioni reali fornite 
dall’operatore al video. Attenzione: il comando. FF posto esattamente 
alla fine del contratto è indispensabile, in quanto fa sì che la stampante si 
porti all’Inizio del foglio successivo nel caso di stampa automatica di due 
o più copie del contratto finito. 


PPR stampa su video le parole 
scritte sulla stessa riga del comando. 

PIN stampa su video le parole scrit¬ 
te sulla stessa riga del comando, ma, 
a differenza di PPR, blocca lo svolgi¬ 
mento del programa finché l’operato¬ 
re non batte RETURN; a questo pun¬ 
to, sullo schermo è visibile l’intestazio¬ 
ne del programma, in questo caso 
Modulo elettronico di contratti, utile 
per essere sicuri di aver richiamato un 
determinato tipo di contratto e non un 
altro. 

Una volta battuto RETURN, il passo 
successivo del programma è articola¬ 
to in modo da richiamare la prima par¬ 
te del contratto che avremo preceden¬ 
temente scritto e registrato nel drive 2 
con il nome di STARTCONTRACT, o 
un altro nome a scelta (purché, ovvia¬ 
mente, venga richiamato da WPL, con 
lo stesso nome) per mezzo del co¬ 
mando L. 

Una volta richiamato il primo pezzo 
di contratto, si deve fare una ricerca 
airinterno del testo per sostiture le pa¬ 
role chiave che rappresentano le va¬ 
riabili. A questo scopo inseriamo il co¬ 
mando B che porta il cursore a inizio 
testo. 

A questo punto del programma ab¬ 
biamo bisogno del «cartello indicato¬ 
re» cui far riferimento per far ripartire il 
programma da quel determinato pun¬ 
to. Il cartello nel nostro caso è la paro¬ 
la MENU. Poi scriviamo le istruzioni 
per l’operatore, il quale deve scegliere 
quali opzioni inserire nel contratto. Il 
solito PIN dice all’operatore che se 
batte solo RETURN equivale a ferma¬ 
re (stop) la scelta, e infatti il primo 
comando successivo, oltre a un PPR 
che stampa solo una stringa bianca, è 
un input a comparare la stringa $A, 
cioè il nostro stop, con un RETURN. 
Se è un RETURN quello che ha battu¬ 
to l’operatore, con il comando succes¬ 
sivo, PGO FINE, diciamo al computer 
di andare a quella parte del program¬ 
ma contraddistinta col cartello FINE, 
se invece è un numero da 1 a 11, per 
ciascuno di questi numeri il computer 
ha un’operazione da fare. Per il nume¬ 
ro 1 deve andare a quella parte del 
programma contraddistinta dal cartel¬ 
lo prima; per il numero due deve anda¬ 
re al cartello seconda, e così via. Tutti 
questi comandi noi li diamo al compu¬ 
ter semplicemente ordinandogli di 
comparare una stringa (PCS), quella 
stringa che abbiamo legato alla rispo¬ 
sta dell’operatore, il quale deve indi¬ 
care se inserire l’opzione 1 e/o l'opzio¬ 
ne 2, ecc. 

Bisogna ora costruire la parte di 
programma contraddistinta da tutta la 


serie degli 11 «cartelli indicatori». Il 
primo, prima, è legato alla prima op¬ 
zione, e fa eseguire al computer il co¬ 
mando di registrare solo una parte del 
testo contenuto nel nostro file CON- 
TROPZ. Prima però bisogna avere 
l’avvertenza di mettere il cursore alla 
fine o all’inizio del testo, altrimenti il 
comando di ricerca (che adesso ve¬ 
dremo) rischia di girare a vuoto, e di 
conseguenza tutto il programma in 
WPL rischierebbe di abortire. A que¬ 
sto scopo mettiamo il comando E 
(end) a qualche battuta dal cartello 
indicatore prima. Poi diciamo al com¬ 
puter di richiamare il file CONTROPZ 
con l’istruzione L CONTROPZ,D2. 

Occorrerà però prelevare solo il te¬ 
sto immediatamente successivo al 
segnale convenzionale rappresentato 
da <prima> e fino al successivo se¬ 


gnale convenzionale escluso. Per fa¬ 
re questo mettiamo <prima> fra due 
segni separatori (in questo caso usia¬ 
mo come segno separatore il !); poi 
mettiamo sempre tra due segni escla¬ 
mativi una parentesi acuta (!>!) se¬ 
guiti da una N. Il tutto significa: «Leggi 
nel disco del drive 2 il file contraddi¬ 
stinto dal nome CONTROPZ, trova il 
segno convenzionale <prima> e re¬ 
gistra il testo che parte immediata¬ 
mente dopo il segno convenzionale 
fino al segno convenzionale successi¬ 
vo, o fino alla fine se non incontri altri 
segni convenzionali». 

Terminata anche questa operazio¬ 
ne, dobbiamo impartire l’ordine di tor¬ 
nare al MENU, perché l’operatore 
possa scegliere una nuova opzione 
da inserire nel contratto, e così via 
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finché l’operatore non esce dal menù 
battendo RETURN. 

Quando si esce dal menù di scelta 
delle opzioni, il programma viene 
«mandato» al cartello indicatore FINE 
e lì trova il comando di «lanciare» un 
nuovo programma, dal titolo TERZA 
PARTE,D2. 

Come al solito la terza parte del pro¬ 
gramma, che in definitiva è un pro¬ 
gramma a sé stante, inizia con PND, il 
comando pulizia. 

C’è quindi il comando di registrare 
(L) il file che va sotto il nome di END- 
CONTRACT,D2. Poi si stabilisce il 
margine destro alla settantacinquesi- 
ma battuta PRM75 e il margine infe¬ 
riore del foglio con 8 righe bianche 
PBM8. Questa parte della program¬ 
mazione è importante perché ogni 
carta intestata ha le sue caratteristi¬ 
che: la ragione sociale con le scritte 
fisse raccolte tutte in testa al foglio, o 
parte in testa, parte al piede del foglio, 
e pertanto lo spazio bianco dove 
stampare il testo varia sensibilmente 
da azienda a azienda. In questo modo 
abbiamo adottato rimpaginazione del 
testo a una carta intestata con caratte¬ 
ristiche precise. Per esigenze diverse 


basterà variare questi dati. 

Il solito comando B porta il cursore 
all’inizio del testo che abbiamo appe¬ 
na richiamato da disco. 

Il comando di find (cerca) fa sì che il 
computer si metta in caccia del noto 
segno convenzionale (contra) per so¬ 
stituirlo con $B che dal momento che 
non è mai stato usato in altro modo è 
sempre accoppiato al nome del con¬ 
traente e pertanto non abbiamo biso¬ 
gno di chiederlo nuovamente all’ope¬ 
ratore al video. La A tra barre oblique 
(sta per All, tutto) significa che il com¬ 
puter deve cercare tutti i segni con¬ 
venzionali (contra) per sostituirli con il 
nome del contraente. 

Segue ancora una serie di comandi 
che ormai conosciamo: il beep , la puli¬ 
zia dello schermo, un cartello indica¬ 
tore, la richiesta di altri dati da inserire 
nel contratto sostituendoli ad altret¬ 
tanti segni convenzionali. 

Quando l’operatore preme RE¬ 
TURN, per vedere il contratto, il primo 
comando che il computer incontra è B, 
e pertanto il cursore viene spostato 
all’inizio del testo. 

PYD sta per yes display, cioè visua¬ 
lizza sul video il testo che hai in 


memoria. 

SCROLL è il nostro solito cartello 
indicatore, in corrispondenza del qua¬ 
le inseriamo un comando di find parti¬ 
colare che serve a scrollare lentamen¬ 
te il testo su video, semplicemente di¬ 
cendo al computer di cercare ogni pa¬ 
ragrafo nuovo. 

Una volta trovato il paragrafo nuo¬ 
vo, il programma viene riportato con 
PGO al cartello indicatore 10 e così si 
rimette a cercare ancora un paragrafo 
nuovo. L’operatore ha così il tempo di 
controllare che tutti gli inserimenti ef¬ 
fettuati siano giusti. 

Se tutto è a posto, non resta che 
registrare il nuovo contratto su disco 
(non vorrete mica archiviarlo in qual¬ 
che classificatore, sotto forma di fogli 
di carta che occupano tanto spazio!). 
Dopo il solito comando di sicurezza, 
seguono i comandi di comparazione 
stringhe: se l’operatore risponde S (o 
s minuscolo), dobbiamo richiedere il 
nome, e anche il drive (1 o 2) sotto il 
quale registrare il contratto, con l’ac¬ 
cortezza però che le nostre stringhe 
variabili siano $B e $C: alla prima ver¬ 
rà accoppiato il nome, alla seconda il 
drive. 


PND 

Y? 

PPR 9 Nona opzione 

PPR G 

PPR G 

PPR 10 Decima opzione 

PPR L 

PPR L 

PPR 11 Undicesima opzione 

PPR 

oggetto 

PPR 

PPR **«i***m*********mm*** 

PIN Scrivi l'oggetto 

MENU PPR Imposta il numero delle 

PPR * * 

dell'incarico, poi batti RETURN: 

opzioni da inserire (1-11): 

PPR * APPLICANDO * 

=ÌA 

PIN RETURN stop: =*A 

PPR * Modulo elettronico * 

PCS /W/ 

PPR 

PPR * di contratti * 

PGO oggetto 

PCS /W/ 

PPR * * 

F/(oggetto),W 

PGO FINE 

PPR e*************************** 

Y? 

PCS /Wl/ 

PPR 

P1N Premi return per cominciare 

PDO UPL.0P.D2 

PGO prima 

PCS /W2/ 

L STARTC0NTRACT.D2 

PND 

PGO seconda 

B 

PPR G 

PCS /W3/ 

PPR G 

PND 

PGO terza 

contra 

PPR 

PCS /W4/ 

PINLScrivi il nome del 

PPR 

PGO quarta 

contraente, poi batti RETURN: =$B 

PPR Opzioni menu di realizzazione 

PCS /W5/ 

PCS m/j 

PPR 

PGO quinta 

PGO contra 

PPR 

PCS m/é/ 

F/(contra)/$B/A/ 

PPR OPZIONI: 

PGO sesta 

Y? 

PPR 

PCS /W7/ 

PPR G 

PPR 1 Prima opzione 

PGO settima 

PPR L 

PPR 2 Seconda opzione 

PCS /W8/ 

indir 

PPR 3 Terza opzione 

PGO ottava 

PIN Scrivi l'indirizzo del 

PPR 4 Quarta opzione 

PCS /W9/ 

contraente, poi batti RETURN: =$A 

PPR 5 Quinta opzione 

PGO nona 

PCS /W/ 

PPR 6 Sesta opzione 

PCS /wio/ 

PGO indir 

PPR ? Settima opzione 

PGO decima 

F/<indir)/W 

1 - 

PPR 8 Ottava opzione 

Segue a pag. 62 
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Impartiamo poi l’ordine di salvare il 
nostro contratto su disco (S $B,$C). 
Una volta salvato, oppure nel caso 
che l’operatore decida di non salvarlo 
su disco, il programma passa al car¬ 
tello indicatore STAMPA. Qui appare 
un menù di opzioni per cui l’operatore 
può scegliere di stampare fino a 5 co¬ 
pie del contratto (ma se ne possono 
prevedere di più o di meno). Anche in 
questa fase, a parte i soliti comandi di 
sicurezza, se l’operatore sceglie l’op¬ 
zione 1 (stampa su una sola copia), il 
programma viene mandato a un car¬ 
tello indicatore che per brevità abbia¬ 
mo identificato con a, e così via fino al 
cartello indicatore e. A ognuno di que¬ 
sti cartelli è ripetuto da uno a 5 volte il 
comando di stampa (PNP). 

Quando il computer ha finito di 
stampare, va al cartello indicatore FI¬ 
NE, dove trova una serie di beep e la 
frase «Il contratto è stampato, esci dal 
programma battendo RETURN». 
Quando l’operatore ha battuto RE¬ 
TURN, sul video compare il contratto, 
e si ha ancora la possibilità di even¬ 
tuali interventi o, eventualmente, di 
salvarlo su disco. Non ci resta ora che 
salvare questa terza parte di program¬ 


ma, con il nome TERZA PARTE,D2. 
Attenzione, però, se decidiamo di 
chiamarlo in modo diverso, dobbiamo 
cambiargli il nome anche all’interno 
del comando posto alla fine della se¬ 
conda parte del programma: in caso 
contrario, non sarebbe possibile lan¬ 
ciare automaticamente questa terza 
parte, perché, ovviamente, il compu¬ 
ter non la troverebbe. 

Prima di porre una domanda all’o¬ 
peratore seduto davanti allo schermo, 
sarà bene attirare la sga attenzione 
con un beep, pertanto scriviamo il co¬ 
mando PPR seguito da un spazio vuo¬ 
to, premiamo il tasto Ctrl (Control) e 
contemporaneamente la lettera V; ri¬ 
lasciamo il tasto Control e battiamo la 
lettera G; schiacciamo nuovamente 
Control e contemporaneamente la let¬ 
tera V. Sullo schermo appare una G in 
negativo, che serve a generare il 
beep di avvertimento. 

La parola contra, che deve essere 
scritta a filo, e non rientra di una battu¬ 
ta, come gli altri comandi, è una spe¬ 
cie di cartello indicatore al quale si può 
far andare il programma, affinché ri¬ 
parta di lì. Vedremo tra poco a cosa 
serve. 


Il comando PIN lo abbiamo già in¬ 
contrato: serve a scrivere sul video 
una frase e a bloccare il programma 
finché l’operatore, eseguita l’istruzio¬ 
ne, non batte RETURN. La L in nega¬ 
tivo serve invece a «pulire» il video 
(funziona come il comando HOME in 
Basic), sul quale altrimenti l’operatore 
leggerebbe anche il comando prece¬ 
dente. Si ottiene, come il beep di pri¬ 
ma, schiacciando Control e contem¬ 
poraneamente V, poi schiacciando L 
e ancora Control contemporanea¬ 
mente a V. Adesso dobbiamo dare 
all’operatore la prima vera istruzione 
da seguire. Dobbiamo sostituire alla 
parola chiave (contra) sullo START- 
CONTRACT il nome del contraente, 
che può essere il nome e il cognome 
di una persona fisica oppure la ragio¬ 
ne sociale di una ditta: non facciamo 
che dire all’operatore Scrivi il nome 
del contraente, poi batti RETURN : a 
questa frase facciamo seguire uno 
spazio bianco, poi battiamo = $B. 
Con questo comando è come se di¬ 
cessimo al computer: «Le parole che 
scriverà l’operatore memorizzale co¬ 
me $B, e ogni volta che ti si dirà di fare 
qualcosa con $B, dovrai mettere al 


Segue da pag. 61 

PCS /WiU 
P60 undicesima 
prima E 

L C0NTROPZ,02ì <prima>!<!N 
PGO MENU 

seconda E 

L CQNTRQP2,02!<seconda>!< !N 
PGO MENU 
terza E 

L CQNTROPZ,02!<terza)!<!N 
PGO MENU 

quarta E 

L CQNTROPZ,02 \ <quarta>!<!N 
PGO MENU 

quinta E 

L CONTRQPZ,D2ì <quinta>!<IN 
PGO MENU 

sesta E 

L C0NTR0PZ,02!<sesta>!< !N 
PGO MENU 

settima E 

L CONTR0PZ,02!<sett ima)!<!N 
PGO MENU 

ottava E 

L C0NTR0PZ,D2!<ottava>!<!N 
PGO MENU 
nona E 

L CQNTROPZ,02!<nona>!< !N 
PGO MENU 

decima E 


L CQNTROPZ,02!<decima)!<!N 
PGO MENU 

undicesima E 

L CONTRQPZ,02!<undicesima) ! < !N 
P60 MENU 

FINE E 

PD0 TERZA PARTE,02 

PND 

L ENDC0NTRACT ,02 

PRM75 

PBM8 

B 

F/<contra)/*B/A/ 

Y? 

B 

PPR G 
PPR L 

caratteristiche 
FIN Caratteristiche: =IA 
PCS MJf 

PGO caratteristiche 
FAcaratter i st i che )/W 
Y? 

PPR G 
PPR L 
termini 

PIN Termini di consegna: =$A 

PCS /W/ 

PGO termini 
F/( termi ni)/W 


Y? 

PPR G 
PPR L 
somma 

PIN Compenso: =*A 
PCS MJt 
PGO somma 
F/( somma )/$A/ 

Y? 

PPR L 
PPR G 
condizioni 
PPR G 

PINLCondizioni di pagamento: =*A 
PCS /W/ 

PGO condizioni 
F/(condizioni)/$A/ 

Y? 
data 
PPR L 
PPR G 

PIN Data: =*A 

pcs mn 

PGO data 

F/(data)/W 

Y? 

PPR G 

PINLPrerai RETURN per vedere il 
contratto 
PPR 
B 
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posto di $B le parole memorizzate». 

PCS è un comando di comparazio¬ 
ne di stringa: tra la prima e la seconda 
barra inclinata mettiamo $B, che in 
linguaggio tecnico si chiama appunto 
stringa, e diciamo al computer di 
«compararla» con quanto ha scritto 
l'operatore. Poi dobbiamo ipotizzare 
qualche cosa, affinché il computer 
possa prendere una decisione. Infatti, 
come pietra di paragone mettiamo 
«niente», cioè tra la seconda e la terza 
barra inclinata non mettiamo niente, 
nemmeno uno spazio. In parole pove¬ 
re, questo significa: se l’operatore bat¬ 
te dei tasti che non provocano la scrit¬ 
tura di una o più lettere, allora vai 
(PGO) alla parte di programma con¬ 
traddistinta dal «cartello» contra. A 
questo punto, il programma ripropone 
all’operatore al video la stessa do¬ 
manda; si tratta infatti di un semplice 
comando di sicurezza, nel caso che 
l’operatore schiacci inavvertitamente 
RETURN, senza aver prima scritto il 
nome del contraente. 

Se invece l’operatore ha scritto il 
nome del contraente, il computer pas¬ 
sa subito alla fase successiva. Si trat¬ 
ta di trovare e rimpiazzare del testo. F 


sta quindi per find (trova) quanto scrit¬ 
to tra le prime due barre inclinate, 
/(contra)/, e sostituiscilo con quanto 
scritto tra la seconda e la terza barra 
inclinata, /$B/. A questo punto però il 
computer non sostituisce la parola 
contra con $B, bensì con il nome del 
contraente, che ha memorizzato co¬ 
me $B. 

Y? è un comando che significa: 
«Hai eseguito la sostituzione? Se l’hai 
eseguita, passa pure alla fase suc¬ 
cessiva del programma. Se invece 
non l’hai eseguita, bloccati qui». 

La fase successiva del programma 
è rappresentata da comandi che già 
conosciamo. Un beep per attirare l’at¬ 
tenzione dell’operatore al video e un 
colpo di spugna sul video, in modo da 
cancellare quanto scritto finora. 

La parola indir scritta a filo e non 
rientrata di una battuta ha lo stesso 
scopo della parola contra già incon¬ 
trata. * 

PIN è l’ormai familiare comando 
che permette di scrivere del testo da 
visualizzare su video e, nel contempo, 
interrompe il programma finché l’ope¬ 
ratore non esegue l’istruzione e non 
batte RETURN. A differenza della vol¬ 


ta precedente, in questo caso leghia¬ 
mo la risposta dell’operatore al video 
a$A, anziché $B. In seguito capirete 
la ragione. I comandi che seguono so¬ 
no tutti già visti. Dapprima si ordina al 
computer di comparare la risposta 
dell’operatore con un eventuale RE¬ 
TURN schiacciato per sbaglio, al fine 
di riproporre la domanda, poi c’è la 
solita ricerca e sostituzione della se¬ 
conda variabile contenuta nello 
STARTCONTRACT, così di seguito 
fino alla terza variabile, l’oggetto del 
contratto. Avete però notato che usia¬ 
mo sempre la stringa $A? Il computer, 
in questo caso, cancella dalla sua me¬ 
moria l’accoppiamento precedente e 
ritiene sempre e solo il nuovo accop¬ 
piamento. Se abbiamo bisogno che 
ritenga in memoria più di un accoppia¬ 
mento, dobbiamo usare altre variabili 
di stringa, le quali, in tutto, nel WPL 
sono quattro: $A, $B, $C, $D. Adesso 
potete capire la ragione per cui abbia¬ 
mo accoppiato al nome del contraente 
la stringa $B: ci servirà più tardi, e 
quindi non vogliamo che venga can¬ 
cellata dalla memoria per essere so¬ 
stituita da un’altra stringa $B accop¬ 
piata a un dato diverso. 


PYD 

PPR G 

PGO STAMPA 

10 F<><)< 

PINLPremi RETURN per stampare il 

PCS /Wl/ 

Y? 

contratto 

PGO a 

PGO 10 

PND 

PCS /W2/ 

PND 

PPR 

PGO b 

OPZIONI 

PPR 

PCS /W3/ 

PPR G 

PPR 

PGO c 

PlNLVuoi registrarlo su disco? 

PPR 

PCS /W4/ 

Rispondi S o N, poi premi RETURN - 
=*A 

PPR L 

PPR G 

PGO d 

PCS /W5/ 

PCS /W/ 

PPR Opzioni menu di realizzazione 

PGO e 

PGO OPZIONI 

PPR 

a 

PCS /Ws/ 

PPR 

PNP 

PGO NOME 

PPR 

PGO FINE 

PCS /Wn/ 

PPR 

b 

PGO STAMPA 

PPR 

PNP 

PCS /WS/ 

PPR OPZIONI: 

PNP 

PGO NOME 

PPR 

PGO FINE 

PCS /WN/ 

PPR 1 copia 

c 

PGO STAMPA 

PPR 2 copie 

PNP 

NOME 

PPR 3 copie 

PNP 

PPR G 

PPR 4 copie 

PNP 

PINLScrivi il nome del file e 

PPR 5 copie 

PGO FINE 

premi RETURN - =*B 

PPR 

d 

PPR G 

PPR 

PNP 

PINI Scegli DI o D2 e premi 

PPR 

PNP 

RETURN - =*C 

PPR 

PNP 

S $B,*C 

PPR 

PNP 

PPR 

MENU PIN Imposta la scelta (1-5), 

PGO FINE 

PPR 

poi premi RETURN: =$A 

e 

STAMPA 

PCS /W/ 

Segue 
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DISK-SUBSYSTEM 

Finalmente a disposizione 
un sottosistema a dischi 
floppy ad alta capacità con 
dimensioni atte a realizzare 
applicazioni veramente 
professionali come 
contabilità e magazzino per 
un’azienda di medie 
dimensioni. 

Disk-subsystem standard 
pronto a magazzino 

20 MEGABYTES 

con due drives ed 
espandibile fino a 40 
Megabytes con 4 drives. j£ 

Dotato di opzione multiple- y 

port che permette di £ 

collegare 4 Personal alla a? 

stessa banca-dati e di | 

realizzare un sistema 
“multiutente”. K 

Nessuna conversione di 
Software se lavorate in 
Apple DOS, Megados o 
CPM. 

Attach sviluppati anche per IBM PC, 
SIRIUS e altre case. 

Consegne per contanti pronte da 
Magazzino. Chiedere informazioni: 


Sig 


Ditta 


Via 


CAP Città . 

Tel 

TP l Isatrr 





© 

GENERHL FNJTDMHTIDN 

20129 Milano - Via Gaspare Gozzi 1/A 
Tel. (02) 718531 6 linee - Telex 311353 



A questo punto bisogna ricordare 
che un programma in WPL non può 
essere più lungo di 2048 battute. Co¬ 
me superare lo scoglio quando si vuo¬ 
le fare un programma un po’ più lungo, 
come quello che presentiamo? La co¬ 
sa è semplicissima: basta spezzarlo 
in due o più programmi, e chiudere il 
primo con l’ordine di eseguire il secon¬ 
do. Esattamente come facciamo 
adesso con il comando PDO seguito 
dal «nome» con cui salveremo la se- 
conda parte del programma 
WPL.OP,D2. Dopo aver scritto que¬ 
st’ultimo comando, salviamo la prima 
parte del contratto chiamandolo CON¬ 
TRATTO,D2. 

La seconda parte del programma 
inizia con dei comandi che ci sono 
familiari: l'iniziale di pulizia PND, che 
però non annulla il contenuto delle va¬ 
riabili di stringa, il beep e una serie di 
linee bianche, per arrivare alle scritte 
che vogliamo visualizzare sullo scher¬ 
mo. Si tratta in questo caso di un me¬ 
nù di opzioni. Infatti, a questo punto 
del contratto, vogliamo inserire quale 
servizio offriamo al contraente, cioè al 
nostro cliente. È chiaro che non fac¬ 
ciamo le stesse cose per i clienti diver¬ 
si. Nel nostro caso abbiamo 11 opzio¬ 
ni; possiamo inserirle tutte nel nostro 
contratto, oppure solo quelle che ser¬ 
vono. Per far questo dobbiamo prima 
averle scritte tutte con l’avvertenza di 
porre all’inizio di ciascuna una specie 
di etichetta, in modo che il computer 
possa poi prendere solo quelle che gli 
si dice di prendere. L’etichetta consi¬ 
ste in una semplice parola chiave, ma¬ 
gari mnemonica, chiusa tra parentesi 
acute da sola in una riga. Poi bisogna 
battere il testo che rappresenta l’op¬ 
zione, e così via nel nostro caso per 
11 opzioni. Salviamo questo testo con 
il nome CONTROPZ,D2 (vedi figura 
2 ). 
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PNP 

PNP 

PNP 

PNP 

PNP 

PGO FINE 
FINE 
PPR L 
PPR G 
PPR G 
PPR G 
PPR G 

PIN II contratto ù stampato, esci 
dai programma battendo RETURN 
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IN COLLABORAZIONE 
CON MIXER VIAGGI 
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Programma 
SAN FRANCISCO 


27 ottobre 

MILANO/SAN FRANCISCO 
Partenza con volo Alitalia alle 
ore 13.30. Arrivo a SAN FRANCI¬ 
SCO alle ore 22.44. Trasferimen¬ 
to in albergo. Pernottamento. 

Dal 27 ottobre al 1 novembre 
SAN FRANCISCO 
Prime colazioni e pernottamenti 
in albergo. Una giornata sarà de¬ 
dicata all'escursione a Cupertino 
in autopullman privato. 

2-3 novembre 

SAN FRANCISCO/MILANO 
Prima colazione in albergo. Tra¬ 
sferimento aeroporto. Partenza 
alle ore 09.00. Cena e pernotta¬ 
mento a bordo. Arrivo alle ore 
10.05 a MILANO MALPENSA. 

Quota di partecipazione per per¬ 
sona Lire 1.770.000. 

Per i titolari di Applicarci (basta 
abbonarsi ad Applicando) 

Lire 1.740.000 

La quota comprende: • viaggio 
aereo in classe economica MILA- 
NO/SAN FRANCISCO/MILANO 

• sistemazione in albergo di la 
cat. con trattamento di pernotta¬ 
mento e prima colazione • trasfe¬ 
rimenti aeroportuali • escursione 
a Cupertino • assicurazione "In- 
terassistance" e bagaglio • la 
franchigia bagaglio • le tasse di 
soggiorno e il facchinaggio nel¬ 
l'albergo di un collo per persona 

• borsa da viaggio Mixer Viaggi. 


























NEL 1983 LA SEIKOSHA PER PRIMfi AL MONDO 
E' IN GRADO DI PRESENTARE LA NUOVA STAMPANTE 
GRAFICA A SETTE COLORI. 

RIUNITE IN UN APPARECCHIO PRATICO E COMPATTO 
LE CARATTERISTICHE DELLA STAMPANTE E DEL PLOTTER 
LA SEIKOSHA INVENTA UN NUOVO TIPO DI PERIFERICA 
CHE BEN PRESTO SARA' INSOSTITUIBILE. 

REBIT COMPUTER E' ORGOGLIOSA DI LANCIARE 
QUESTA NOVITÀ' ASSOLUTA SUL MERCATO ITALIANO 
AD UN PREZZO MOLTO, MOLTO COMPETITIVO: 

MENO DI UN MILIONE. 

MENO DI UNA COMUNE STAMPANTE IN BIANCONERO 


A DIVISION OF G.B.C. J 


SEIKOSHA 


Graphic Color Printer 


QUANTI COLORI 
HA LA TUA 

STAMPANTE 


w 










a 


0 c^, Uno scontro ad armi pari contro un altro 
9^^ avversario in carne e ossa o contro il computer? 

Provate con questo programma che mescola in 

parti uguali componenti di abilità logica e di fortuna. 


Se mi 
batti 
a dadi 
e punti 

N on cedete alla tentazione: se ave¬ 
te solo un’ora prima del prossimo 
appuntamento, non giocate a Dadi e 
punti, o arriverete inesorabilmente in 
ritardo. Dadi e punti è infatti un gioco 
strategico che combina logica e fortu¬ 
na in parti uguali. Lo si può giocare in 
due, o anche da soli, contro il compu¬ 
ter. In pratica, ecco quel che succede. 
Sullo schermo si disegna un tabellone 
contenente i numeri da uno a dodici. A 
questo punto il giocatore getta i dadi e 
in base ai punti ottenuti cancella dal 
tabellone il numero che risulta dalla 
somma dei due dadi, o due numeri la 
cui somma dia lo stesso punteggio. 
Per esempio, se i dadi danno 5 e 1, si 
potranno cancellare dal tabellone i nu¬ 
meri 5 e 1, oppure 4 e 2, oppure il 6. Lo 
stesso giocatore continuerà a tirare i 
dadi finché gli sarà possibile cancella¬ 
re numeri dal tabellone. Poi l’Apple 
avvertirà che è venuto il turno dell’al¬ 
tro giocatore, oppure, se si sta giocan¬ 
do contro il computer, effettuerà le sue 
giocate. Chi elimina tutti i numeri dal 
cartellone si vedrà raddoppiato il pun¬ 
teggio. Purtroppo, perché contraria¬ 
mente a quanto potrebbe sembrare a 
prima vista, scopo del gioco non è 
quello di ottenere il punteggio più alto, 
ma quello più basso. 

Il gioco si disputa su più round (all’i¬ 
nizio si decide su quanti round si vuol 
giocare, scegliendo da uno a dieci). 
Apple tiene conto del punteggio per 
ogni round, e alla fine compila la tabel- 
lina dei risultati. 

Dadi e punti richiede una tavola di 
figure destinata a disegnare sullo 
schermo il tabellone dei numeri e i 


16 REM ******ft**«**«***«ft*«**« 

15 REM » DADI E PUNTI 4 
28 REM 4 BY RUDY A. GUY 4 

31 REM 44444444444444444444444 

32 REM 4 COPYRIGHT (0 1983 4 

33 REM 4 BY MICRO-SPARC INC 4 

34 REM 4 AND APPLICANDO 4 

35 REM 44444444444444444444444 

3? PRJN7 CHR* (4); B BL0AD DADI PUNTI.B": HIMEM: 8192: POKE 232,8 
: POKE 233,64 

48 TEXT : DIM B<12),SC(18,3),X(15),Y<15) 

45 TEXT : HOME : PRINT " + + 

4 44 


44 4 

4444444444444444444444444444444444444444* 

58 VTAB 2:Al = "DADI E PUNTI": GOSUB 670:A* = B (C) APPLICANDO": GOSUB 
678 :A* = f C.S0 MANFORTE 39, MILANO 1 : GOSUB 678 
55 GOTO 338 
68 GOSUB 88 

65 IF Q = 1 THEN HOME : PRINT : FLASH :A* = “MESSINA MOSSA’: GOSUB 
(578: FOR U = 1 TO 38:X = PEEK < - 1633(5): NEXT : FOR U = 1 TO 
2588: NEXT : NORML :Q = 8: POP : GOTO 528 
1F C = 1 AND PU(J) = "APPLE 11" THEN ON T - 1 GOSUB 128,125 


,135,145,168,175,195,215,240,265,295 

RETURN 


78 
75 

88 REM * VERIFICA MOSSE * 

85 B(8) ~ 1 

98 FOR K = 1 TO 12: FOR L = 8 TO 12 
95 IF L = K THEN 185 

188 1F B<K> ♦ B(L) = 2 AND L ♦ K = T THEN RETURN 

185 NEXT : NEXT 

118 0 = 1: RETURN 

115 REM * COMPUTER'S MOVE * 


128 Ad) = 2:A<2) = 

125 IF Bd) ♦ B<2) 

136 Ad) = 3:A<2) = 

135 1F Bd) ♦ B<3) 

148 Ad) = 4:A(2) = 

145 1F 8(2) ♦ 8(3) 

158 1F B(4) 4 Bd) 

155 Ad) = 5:A(2) = 

168 1F B<4) 4 B<2) 

165 1F 8(5) ♦ Bd) 

178 Ad) = 6:A<2) = 8: RETURN 
175 IF 6(3) + B(4) = 2 THEN Ad) 
188 IF B(5) 4 6(2) 

185 IF 8(6) 4 Bd) 

198 Ad) = ?:A<2) = 

195 IF B(5) 4 8(3) 

288 IF B<6) 4 B<2) 

285 IF B(7) 4 Bd) 

218 Ad) = 8:A(2) = 

215 IF B(5) 4 8(4) 

228 IF B(6> 4 B<3) 

225 IF 8(7) 4 B<2) 


RETURN 
2 THEN A<1) 
RETURN 
2 THEN Ad) 
RETURN 
2 THEN Ad) 
2 THEN Ad) 
RETURN 
2 THEN Ad) 
2 THEN Ad) 


2 THEN Ad) 
2 THEN Ad) 
: RETURN 
2 THEN Ad) 
2 THEN Ad) 
2 THEN Ad) 
: RETURN 
2 THEN Ad) 
2 THEN Ad) 
2 THEN Ad) 


= 1:A<2) = 2: RETURN 
= 3:A<2) = 1: RETURN 


2:A(2) 

4:A(2) 

4:A(2) 

5:A(2) 

3:A(2) 

5:A(2) 

6:A(2) 

5 :A( 2) 
6:A(2) 
7:A(2) 

5:A(2) 

6:A(2) 

7:A<2) 


= 3: RETURN 
= 1: RETURN 


= 2 : 
= 1 : 


RETURN 

RETURN 


= 4: RETURN 
= 2: RETURN 
= 1 : RETURN 

= 3: RETURN 
= 2: RETURN 
= 1: RETURN 


4: RETURN 
3: RETURN 
2: RETURN 
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^dadi, che risiede nelle locazioni da 
*4000 a 43FC. Dopo aver digitato il 
listato in linguaggio macchina, per sal¬ 
varlo occorre battere “BSAVE DADI E 
PUNTI.B, A$4000, L$3FD”. Chi usa le 
cassette anziché i dischetti può batte¬ 
re invece *4000.43FCW per salvare e 
*4000.43FCR per fare il load. 

Il programma è diviso in sette sezio¬ 
ni. La prima inizia alla linea 35: dopo 
aver caricato le figure, l’HIMEM viene 
impostato a 8192, per proteggere la 
pagina grafica 1 ad alta risoluzione. 
Poi è necessario far sapere all’Apple 
dove si trovano le figure. Ciò si ottiene 
dando un Poke 0 nella locazione 232 
e un Poke 64 nella locazione 233 (E8 
e E9 in Hex). 

La seconda sezione del program¬ 
ma inizia con la linea 325. È qui che le 
variabili e lo schermo vengono inizia- 
lizzati per il gioco. Le linee 375 e 415 
vengono usate come subroutine per 
rimettere a punto il tabellone dopo il 
turno di ciascun giocatore. 

Il lancio dei dadi è regolato dalla 
linea 445, mentre a sistemarli sullo 
schermo provvede la linea 450. Ciò 
effettuato incontriamo la terza sezio¬ 
ne, linee 60-65 e linee 80-110. È qui 
che Apple controlla se esistono mos¬ 
se possibili. Se non ce ne sono, allora 
il punteggio del giocatore viene som¬ 
mato dalla linea 520 e visualizzato 
dalla linea 535. 

Se si sta giocando contro il compu¬ 
ter la variabile C sarà uguale a 1. Se 
questo è il caso, dopo aver controllato 
le mosse possibili, incontreremo la se¬ 
zione 5: le mosse del computer. Que¬ 
sto è il segmento più grosso del pro¬ 
gramma (dalla linea 115 alla 320) : at¬ 
traverso una serie di IF-THEN Apple 
decide quali numeri far sparire dal ta¬ 
bellone. 

Che si tratti di un giocatore in carne 
e ossa o del computer, una volta deci¬ 
se le mosse da effettuare, è la sezione 
6 del programma a metterle in pratica. 
HCOLOR viene impostato su 4 (nero) 
con la linea 620, e i dadi vengono 
cancellati. Poi le linee 625-655 can¬ 
cellano dal tabellone i numeri scelti 
dal giocatore. A questo punto si apro¬ 
no due possibilità per il programma: 
tornare al lancio dei dadi o saltare alla 
sezione 7. 

L’ultima sezione del programma è 
infatti quella che determina il punteg¬ 
gio finale e il vincitore. Ciò accade con 
le linee 560-600. Il nome del vincitore 
comparirà in cima allo schermo e in 
INVERSE. Salvo che non si sia verifi¬ 
cato un caso di pareggio, nel qual ca¬ 
so entrambi i nomi e i punteggi verran¬ 
no riportati in NORMAL. 
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238 1F B<8) 4 B<!) = 2 7HEN Ad) = 8:A<2> = li RETURN 

235 Ad) = 9:A<2) = 8; RETURN 

246 IF B(6) 4 B(4) = 2 THEN Ad) = 6:A<2> = 4: RETURN 

245 IF B(7) 4 8(3) = 2 THEN Ad) = 7:A(2) = 3: RETURN 

258 IF B(8) 4 8(2) = 2 THEN Ad) = 8:A(2) = 2: RETURN 

255 IF B(9) 4 Bd) * 2 THEN Ad) = 9:A(2) = li RETURN 

268 Ad) = 18:A(2) = 8: RETURN 

265 IF B(6) 4 8(5) = 2 THEN Ad) = 6:A(2) = 5i RETURN 

278 IF Bd0) 4 Bd) = 2 THEN Ad) = 18:A(2) = 1: RETURN 

275 IF B(9) 4 B(2) = 2 THEN Ad) = 9:A(2) = 2i RETURN 

289 IF 8(8) 4 8(3) = 2 THEN Ad) = 8:A(2) = 3: RETURN 

285 IF B(7) 4 B<4) = 2 THEN Ad) = 7:A(2) = 4i RETURN 

296 Ad) = 11 :A<2) = 8i RETURN 

295 IF Bdl) 4 Bd) = 2 THEN Ad) = 11 :A(2) = 1: RETURN 

380 IF B(18) 4 8(2) = 2 THEN Ad) = 18:A(2) = 2: RETURN 

305 IF B(9) 4 B(3) = 2 THEN Ad) = 9:A(2) = 3i RETURN 

310 IF B(8) 4 8(4) = 2 THEN Ad) = 8sA<2) = 4i RETURN 

315 IF B(7) 4 B(5) = 2 THEN Ad) = 7:A<2) = 5: RETURN 

328 Ad) = 12iA(2) = 0s RETURN 

325 REM * IMPOSTAZIONE * 

330 POKE 34,5: HOME : VTAB 12; PRJNT 1 VUOI GIOCARE CONTRO IL CO 
MPUTER ?";: GET P*: IF P* = “S” THEN C = 1 
335 P = 2: VTAB 13: PR1N7 : PR1NT 'BATTI IL TUO NOIE:’: VTAB 18 
348 IF C = 1 THEN FOR I = 1 70 P ~ 1: GOTO 358 
345 FOR 1 = 1 TO P 

358 PRJNT 'GIOCATORE INPUT Plid): NEXT 

355 IF C = 1 THEN PL*(P) = "APPLE II" 

368 PRJNT : INPUT 'NUMERO DI RQLNDS (NAX.II) : B jR*:R = VAL (W) 

: IF R < 1 OR R > 10 THEf4 HOME : GOTO 360 
365 FOR 1 = 1 TO R: FOR J = 1 TO P;SC(1,J) = 8: NEXT J,1 
378 FOR W = 1 TO 12:B(U) = 1: NEXT : RESTORE 
375 REM * IMPOSTA LO SCHERMO * 

388 TEXT : HOME : HGR : R0T= 8: SCALE= li HCOLOfc 3 
385 HPLOT 8,0 TO 259,8 TO 259,48 TO 8,48 TO 8,8: HPLOT 43,8 TO 4 
3,40: HPLOT 86,8 TO 86,40: HPLOT 129,8 TO 129,40: HPLOT 172, 

8 TO 172,48: HPLOT 215,8 TO 215,48 
398 HPLOT 8,58 TO 259,58 TO 259,98 TO 0,98 TO 0,58: HPLOT 43,50 TO 
43,98: HPLOT 86,58 TO 86,98: HPLOT 129,58 TO 129,98: HPLOT 1 
72,58 TO 172,98: HPLOT 215,58 fO 215,98 
395 FOR W = 1 70 15: READ X(W): NEXT : FOR W = 1 TO 15: READ Y(W 
): NEXT 

488 FOR W = 1 TO 9: DRAW W AT X(W),Y(W): NEXT 
485 DRAW 1 AT X(10),Y(10): DRAW 18 AT X(11),Y(11): DRAW 1 AT X(1 
2),Y<12): DRAW 1 AT X(13),Y(13): DRAW 1 AT X(14),Y(14): DRAW 
2 AT X(15),Y(15) 

418 HPLOT 8,188 TO 259,108 TO 259,159 TO 8,159 TO 8,188 

415 IF 0 = 1 THEN RETURN 

428 FOR 1 = 1 TO R: FOR J = 1 70 P 

425 POKE 34,28: HOME 

438 PRJNT ’E' IL TURNO DI ';PL*(J): POKE 34,21: HOME 
435 IF C = 1 AND PL$(J) = "APPLE II" THEN 445 
448 VTAB 24: HTAB 5: INVERSE : PRJNT 'QUALUNQUE TASTO PER LWC1A 
RI DADI 8 ;: GET A*: NORMAL : HOME 

445 Dd) = INT (( RND (1) * 6) 4 l)sD(2) = INT (( RND (1) * 6) 4 
1):T = Dd) 4 0(2) 

458 DRAW (Dd) 4 li) AT 188,128: DRAW (D(2) 4 11) AT 128,128: 6QSUB 
60 


455 IF C = 1 AND PL*(J) = "APPLE 11' THEN FOR W = 1 TO 3888: NEXT 
: GOTO 470 

468 HOME : PRINT : INPUT 'SCEGLI 1 NUMERI DA TOGLIERE (A,B) :'; 
A*d),A*(2) 

5 Segue a pag. 71 
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UN MOMENTO PREGO 



I PROGRAMMI APPLICATIVI DI 
CONTABILITÀ GENERALE E SEMPLIFICATA 
LI TROVERETE DA: 

COMETA s.n.c. 

RIVENDITORI AUTORIZZATI 

20122 MILANO - CORSO EUROPA, 12 
TEL (02) 5464468/5456211 


Oistnbuzione per malia 

IRET 

informatica 


COMETA 


[cippkz computar 






Come illustrare le vostre fortune 
senza spendere una fortuna* 



Basta un solo grafico per esprimere istantaneamente ciò che altrimenti 
si potrebbe dedurre solo dal lungo e tedioso esame di tabulati. 

Oggi, con il Plotter grafico Strobe 100 e il relativo Software 
potete creare disegni a colori di qualità eccezionale, direttamente con 
il vostro .elaboratore personale, a un costo molto più basso di altri 
sistemi. Il Plotter Strobe trasforma insiemi di dati in dinamiche 
visualizzazioni, con pochi e semplici comandi del vostro computer. 

Si riducono così a pochi minuti 
le ore di lavoro necessarie per produrre 
diagrammi su carta o su lucidi 
trasparenti. 

Le informazioni presentate 
con istogrammi, curve, disegni, 
diagrammi cartesiani e circolari 
su fogli di 21,5x28 cm, rendono più 
chiare le vostre idee. 

E Strobe, con la precisione dei 
suoi 200 punti al cm, supera 
di parecchio la qualità di plotter che 
costano parecchi milioni di più. 


Inoltre, con i programmi Strobe potete memorizzare 
e modificare i vostri grafici, scegliendo le attività desiderate da facili 
menu in italiano. 

E, se non basta, esiste una grande selezione di software 
compatibile con il plotter Strobe 100, come ad esempio il prestigioso 
VisiCalc™ 

Visitate oggi stesso il vostro rivenditore di fiducia. Vi spiegherà 
il modo migliore per illustrare 
le vostre fortune. 


INFORMATICA 


SISTEMA GRAFICO STROBE 


Via Bovio, 5 
42100 Reggio Emilia 
Tel. 0522/32643 
Tlx 530173 1RETRE 


Vedere per credere. 


* VisiCalc™ è un marchio registrato della VisiCorp™ 












I 
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465 Ad) = VAL <A*(1»:A<2) = WL <A*<2)> 

479 IF Ad) < 1 OR Ad) ) T THEN GOSUB 615: GOTO 460: REM *** E 
RROR ROUTINE 

475 1F Ad) 4 A<2) < ) T THEN GOSUB 615: GOTO 460 

480 1F B(A(D) = 1 THEN B(Ad)) = 0: GOTO 490 
485 GOSUB 615: GOTO 460 

498 1F A(2) = 0 THEN S(J) = S(J) * T: GOSUB 620: GOSUB 625: HCHE 
: GOTO 438 

495 1F BCA<2)) = 1 THEN B(A<2)> = 0: GOTO 585 
588 B<A(D) = 1: GOSUB 615: GOTO 460 

505 S(J) = S(J) ^ T: GOSUB 625: GOSUB 628: HOME : 1F S(J) = 78 THEN 
515 

510 GOTO 430 

515 1F S(J) = 78 THEN S(J) = 156 
520 SCd,J) = SCd,J) ♦ S(J):S(J) = 8 
525 FOR W = 1 TO R:TS = TS 4 SC(U,J): NEXT 
530 HOME : 1F 1 > 1 THEN PR1NT PL$(J)' : PUNTI DOPO 'jlj' ROUND 
S :'iTS:TS = 0: GOTO 548 

535 HOME : PR1NT Ptf(J)' : PUNTI DOPO ";I|* ROUND :*;TS:TS = 0 

540 FOR « = 1 TO 3080: NEXT : POKE 34,28: HOME 

545 1F I = R AND J » P THEN 555 

558 Q = 1: GOSUB 370:Q = 0 

555 NEXT : NEXT 

568 REM * DETERMINAZIONE PUNTEGGIO FINALE * 

565 FOR J = 1 TO P: FOR 1 = 1 TO R:S(J) = S<J> 4 SCd.J): NEXT : 

NEXT 

578 FOR 1 = 1 TO P: FOR J = 1 TO P - 1: LET S = S(J): LET SI = S 
(J 4 l):PU = PL$(J);A* = PU<J 4 1): IF S < SI THEN 580 
575 $<J) = SI :S(J 4 1) = S:PLÌ<J) = A*:PL*(J 4 1) = PLI 
580 NEXT : NEXT 

585 TEXT : HOME :A* = 'TOTALI FINALI*: GOSUB 678: PR1NT '======= 

598 FOR I = 1 TO P: IF 1 = 1 AND Sd) < Sd 4 1) THEN INVERSE 
595 PRINT I;'. "jPL^d);: PRINT TAB< 35)}S(I): IF I = 1 THEN NORMAL 

680 NEXT 

685 VTAB 24: PRINT 'GIOCHI ANCORA?';: GET YW: IF YNI = 'N* THEN 
TEXT : HOME : PRINT : PRINT 'GRAZIE. GIOCARE CON TE E' STAT 
0 BELLO.': END 
610 CLEAR : GOTO 48 

615 FLASH : PRINT 'ERRORE ! ! !' : FOR W = 1 TO 1508: NEXT : NORMAL 
: RETURN 

628 HCOLOR= 4: DRAM <Dd> 4 11) AT 188,120: ORALI <D<2) 4 11) AT 
120,120: HCOLOR - - 3: RETURN 
625 HCQLOR= 4: FOR U = 1 TO 2 

630 IF A<W) > 0 WD A(W) < 10 THEN ORAI A(W) AT X(A(U)),Y<A<W)) 

: GOTO 655 

635 IF A(W) = 0 THEN 655 

648 IF A<W) = 18 THEN DRAM 1 AT Xd0),Yd8): DRAW 18 AT Xdl),Y 
di): GOTO 655 

645 1F A(W) = 11 THEN DRAW 1 AT X(12),Y<12): DRAW 1 AT Xd3),Y< 

13): GOTO 655 

658 IF A(W) = 12 THEN DRAW 1 AT Xd4),Yd4>: DRAW 2 AT X<15),Y< 

15) 

655 NEXT : KCOLOR= 3: RETURN 

668 DATA 20,68,180,140,185,225,20,60,188,135,145,188,190,220,23 
0,10,10,10,10,18,10,60,60,68,60,68,60,60,68,60 
665 REM * ROUTINE DI CENTRAGGIO * 

670 HTAB 28 - LEN <A*> / 2: PRINT A$: RETURN 
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FROM FAR EAST 


ready from stock 


Special selection for factory 
manufactory, workshop 
computer shop, distributors 
OEM, customs. 

©COMPUSAVE L. 49.600 

Protegge il vostro Personal con il COMPUSAVE, un 
accessorio che si applica, molto semplicemente, 
ad incastro, sul contenitore del vostro personal e che 
assolve la funzione di impedire il surriscaldamento 
dei componenti, integrati, memorie, alimentatori, 
ecc. eliminando quindi tutti i possibili guasti dovuti 
a shock termici. Consente inoltre di bypassare l’in¬ 
terruttore di acceso spento eliminando quindi la pos¬ 
sibilità che si guasti. 

0PSA-2B L. 173.000 

Alimentatore switching da 60 W ad alta affidabilità. 
Essendo assolutamente standard sia come tensioni 
e correnti, che come dimensioni, trova il suo im¬ 
piego ideale come ricambio o come elemento base 
per le vostre realizzazioni personali. Grazie alla ele¬ 
vata riserva di potenza è in grado di alimentare con¬ 
temporaneamente sia una CPU main board che le 
varie schede accessorie e floppy disc. 
Caratteristiche: +5V 5,5A/-5V 0,5A/+12V 
2A/-12V 0,5 0,5 A 

Alimentaz. 220V ca - Dimens. 90x55x250 mm 




Benvenuti 
i rivenditori. 

Ai privati, vendita 
solo per contanti. 



VBE elettronica 

via della Beverara, 39 

40131 Bologna - Tel. 051/372406 
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Tutto 

OK! 


Disponiamo di un servizio di 
manutenzione efficiente e ben 
attrezzato, gestito da tecnici 
professionisti con alle spalle una 
grande organizzazione. 

È il primo grande 

SERVIZIO DI 
MANUTENZIONE 

per calcolatori e loro periferiche 

Disponibile da oggi in Italia sia 
come servizio di LABORATORIO 
aperto al pubblico che come 
servizio di MANUTENZIONE 
completa sotto contratto. 


© 


GENERHL FIUTDMHTION 

20129 Milano - Via Gaspare Gozzi 1/A 
Tel. (02)718531 6 linee - Telex 311353 
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Listati senza fatica 



I programmi pubblicati su Applicando possono es¬ 
sere trascritti dai lettori e salvati su dischetto. Ma la 
trascrizione è lenta e noiosa. Chi lo desidera può 
richiederci i dischetti sotto indicati, già pronti. Chi 
desiderasse anche il dischetto con i programmi 
STATISTICHE, SCANNER e FIGURATI UN PO’ può 
ottenerlo gratis. Abbonandosi ad Applicando. 


AP3/IN05. Dischetto con i programmi SI¬ 
STEMA BASE (pag. 14), ETICHETTE (pag. 
36), CONTRATTI (pag. 58), DADI E PUNTI 
(pag. 67) e GRAN CATALOGO (pag. 82). 
Lire 30.000 (Abbonati Lire 25.000). 

AP3/A06. Dischetto dati VisiCalc EQUO 
CANONE (pag. 44). Lire 25.000 (Abbonati 
Lire 20.000). 


AP1/I02. Dischetto con i programmi PRO¬ 
FITTI PER FAVORE (pag. 38), CALENDA¬ 
RIO PERPETUO (pag. 54), e I TRONCHI DEL 
TESORO (pag. 66). Lire 30.000 (Abbonati 
Lire 25.000). 

AP1/N03. Dischetto con i programmi ELI- 
MINATORE DI DOS (pag. 28);, OROLOGIO 
(pag. 44), e PRONTI PUNTARE FUOCO! 
(pag. 46). Lire 30.000 (Abbonati Lire 
25.000). 

AP2/IN04. Dischetto con i programmi CO¬ 
STI CHILOMETRICI (pag. 14), RICHIAMA FI¬ 
GURE (pag. 44), LASER NELLO SPAZIO 
(pag. 46), e CURVE DI PRESSIONE (pag. 
57). Lire 30.000 (Abbonati Lire 25.000). 




Cognome.Nome. 

Via.Cap.Città.. 

Prov..Data.Firma 

Scelgo la seguente formula di pagamento: 

□ allego assegno di L. 

□ allego ricevuta versamento di L. 

Editronica srl - Corso Monforte, 39 - 20122 Milano. 

□ pago fin d’ora l’importo di L. 

N.scadenza. 

e d’Italia ad addebitarne l’importo sul mio conto BankAmericard 



.. non trasferibile intestato a Editronica srl. 
.sul cc/p n. 19740208 intestato a 

con la mia carta di credito BankAmericard 
.autorizzando la Banca d’America 






















Inquanto 



In queste pagine Applicando pubblica i listini prezzi aggior¬ 
nati dei prodotti Apple distribuiti dalla Iret Informatica SpA, 
Via Bovio 5, 42100 Reggio Emilia. 

Listino in vigore dal 1 giugno 1983.1 prezzi non comprendo¬ 
no le spese di installazione. 


APPLE //E 


Prezzo Prezzo 
IVA esci. IVA comp. 


Apple//e . 1.850.350 2.183.413 

Unità centrale del sistema, comprensiva di: 

• Memoria da 64Kbyte RAM e 16Kbyte ROM 

• Tastiera italiana con maiuscole e minuscole 

• Interfaccia per registratore a cassette • Se¬ 
gnale di uscita video B/N e colori PAL • Soft¬ 
ware di base residente • Monitor, Disassem¬ 
bler, BASIC esteso APPLESOFT 


ESPANSIONI 

Scheda 80 colonne . 225.000 

Permette all'Apple l/e di visualizzare i testi su 
80 colonne. 


265.500 


Prezzo Prezzo 
IVA esci. IVA comp. 


INTERFACCE 


Super interfaccia seriale per Apple II e . 352.000 415.360 

Scheda di interfaccia seriale RS232 utilizza¬ 
bile per il collegamento di stampanti e linee di 
comunicazione. (Anche per Apple II Euro- 
plus). 

Interfaccia parallela universale Apple Ile . 304.000 358.720 

Scheda di interfaccia che permette il collega¬ 
mento di unità periferiche con standard paral¬ 
lelo e Centronics. (Anche per Apple II Euro- 
plus). 

Scheda interfaccia IEEE 488per Apple II e... 841.000 992.380 

Permette il collegamento di strumenti di misu¬ 
ra e dispositivi periferici vari che utilizzano lo 
standard di interfacciamento IEEE 488. (An¬ 
che per Apple II Europlus). 


Scheda prototyping hobby per Apple Ile 52.000 

Scheda per realizzare propri circuiti da colle¬ 
gare al personal computer Apple Ile. (Anche 
per Apple II Europlus). 

ACCESSORI 


61.360 


Scheda 80 colonne con espansione di me- 



Apple stand . 

50.000 

59.000 

moria . 

493.000 

581.740 

Base di appoggio del Monitor III per consenti¬ 



Espansione della memoria del computer Ap¬ 
ple Ile a 128Kbyte totali, e visualizzazione dei 
testi su 80 colonne. 



re l’installazione esteticamente piacevole sul¬ 
l’Apple Ile e su Apple II Europlus. 






Borsa in vinile per Apple Ile (anche per Ap¬ 



UNITÀ DI MEMORIA 



ple!/ Europlus) . 

52.000 

61.360 




Set cavi per interfaccia parallela Apple . 

36.000 

42.480 

Disk II, drive a doppio controller . 

924.000 1.090.320 



Unità di memoria per floppy disk da 5.25", con 
capacità di 140Kbyte per ogni floppy. L’unità 
è comprensiva della scheda di interfaccia per 



DOS. 3.3 Kit II e . 

135.000 

159.000 

Apple Ile, che permette di collegare anche un 
secondo drive aggiuntivo. (L 'Apple Ile per¬ 



LINGUAGGI DI PROGRAMMAZIONE 



mette il collegamento di 6 drive con controller 



Apple Pascal . 

486.000 

573.480 

e 6 drive aggiuntivi, nella configurazione mas¬ 
sima.) Collegabile anche a Apple II Europlus. 



Apple Fortran . 

403.000 

475.540 

Disk II, drive aggiuntivo . 

Unità di memoria per floppy disk da 5.25", con 

700.000 

826.000 

Super Pilot . 

438.000 

516.840 

capacità di 140Kbyte per ogni floppy. L’unità 
aggiuntiva necessita del controller, fornito 



Apple Logo . 

352.000 

415.360 

nella' confezione del disk II drive a doppio 
controller. Collegabile anche a Apple H Euro¬ 



DOCUMENTAZIONE 



plus. 



* Manuale utente dell’Apple He in italiano.... 

22.000 

25.960 

PERIFERICHE 



Manuale di introduzione al linguaggio Ap¬ 
plesoft II e (in inglese) 1 . 

22.000 

25.960 

Hand controller Ile . 

Due manopole di controllo comprensive di 

60.000 

70.800 

Manuale del linguaggio Applesoft Ile (in 



pulsante. 



inglese) 2 . 

27.000 

31.860 

Joystick II e . 

106.000 

125.080 

Set di manuali Applesoft Ile (i due prece¬ 



Leva di comando per fornire direttamente al 
computer Apple Ile input di posizionamenti in 



denti, in inglese) . 

45.000 

53.100 

coordinate X-Y. 



Manuale del sistema Apple Ile (in inglese) 3 

27.000 

31.860 

Numeric Keypad II e . 

298.000 

351.640 

The Applesoft Tutorial in italiano 1 . 

21.000 

24.780 

Tastierino numerico per Apple Ile, completo 
ed interfacciato. 



Applesoft II Reference Manual in italiano? 

21.000 

24.780 




























PERIFERICHE 


Prezzo Prezzo 
IVA esci. IVA comp. 


Apple II Reference Marmai in italiano 3 . 42.000 49.560 

Apple Integer Basic Programming Manual 

in italiano . 15.000 17.700 

* Disk II, Sistema Operativo DOS 3.3 . 21.000 24.780 

* Appiè Pascal Reference Manual (in ingle¬ 
se) . 39.000 46.020 

* Apple Pascal Operating System Manual 

(in inglese) . 51.000 60.180 

* Apple Fortran Manual (in inglese) . 51.000 60.180 

* Apple Pilot Reference Manual (in inglese) 36.000 42.480 

* Apple Pilot Editors Manual (in inglese) . 31.000 36.580 

* Graphics Tablet Manual (in inglese) . 20.000 23.600 

* Silentype Manual (in inglese) . 6.000 7.080 

6502 Hardware Manual (in inglese) . 30.000 35.400 

6502 Programming Manual (in inglese) . 30.000 35.400 


* Manuali già inclusi nel prezzo delle singole parti, 
ma ordinabili anche separatamente. 

Le note 1,2 e 3 indicano gli stessi manuali, 
in versione inglese o italiana. 


APPLE III 


Apple///(128Kb) . 5.200.350 6.136.413 

Sistema di elaborazione professionale Apple 
III, comprensivo di: • Memoria da 256 Kb 
RAM • Tastiera con maiuscole e minuscole e 
tastierino numerico • Disk drive integrato per 
floppy disk 5.25" da 140 Kb • Controller per 
ulteriori 3 drive aggiuntivi esterni • Interfaccia 
seriale RS 232 e per stampante Silentype 

• Segnale di uscita video B/N e a colori RGB 

• Sistema operativo SOS comprensivo di Utili¬ 
ties di sistema. 


ESPANSIONI 

Softcard/H . 908.000 1.071.440 

Scheda CPU che permette di utilizzare il si¬ 
stema operativo CP/M anche sul computer 
Apple III. 

UNITÀ DI MEMORIA 


Disk/// . 755.000 890.900 

Drive aggiuntivo per floppy da 5.25”. Capaci¬ 
tà di 140 Kb per floppy. È possibile collegare 
fino a 3 Disk III per ogni Apple III. 

ProFilelll . 3.776.000 4.455.680 


Unità di memoria aggiuntiva basata su disco 
rigido (Winchester) da 5 Mega byte. L'unità è 
completa di interfaccia per Apple III. È possi¬ 
bile collegare fino a 4 ProFile per ogni Apple 
III per un totale di 20 Mega byte in linea. 


Prezzo Prezzo 
IVA esci. IVA comp. 


Cursori// . 135.000 159.300 

Leva di comando per fornire direttamente al 
computer Apple III input di posizionamenti in 
coordinate X-Y. 

INTERFACCE 


Interfaccia parallela universale Apple/// . 454.000 535.720 

Scheda di interfaccia che permette il collega¬ 
mento con standard parallelo di unità perife¬ 
riche. 

Scheda prototyping per Apple III . 103.000 121.540 

Scheda per realizzare propri circuiti da colle¬ 
gare al computer Apple III. 


ACCESSORI 


Borsa in vinile per Apple III . 84.000 99.120 

Kit conversione Silentype// - Silentype III .... 84.000 99.120 

Modem eliminator cable . 14.000 16.520 

Set cavi per interfaccia parallela Apple . 36.000 42.480 

LINGUAGGI DI PROGRAMMAZIONE APPLE 

Apple III Business Basic . 253.000 298.540 

PascaUH . 486.000 573.480 

UNITÀ VIDEO 

Monitor/// . 400.000 472.000 

Video a 12 pollici, fosfori verdi, per Apple Ile e 
per Apple III. 

Monitor fosfori verdi 9". . 180.000 212.400 

Monitor Philips fosfori gialli . 352.000 425.360 

UNITÀ DI SCRITTURA 

Silentype He . 723.000 853.140 

Stampante termica da 80 colonne con capa¬ 
cità grafiche. La confezione comprende l’in¬ 
terfaccia e i cavi di collegamento all 'Apple Ile. 

Silentype III . 656.000 774.080 

Stampante termica da 80 colonne con capa¬ 
cità grafiche. 

Stampante ad aghi Apple . 1.150.000 1.357.000 


Unità di stampa che permette di utilizzare fogli 
singoli o modulo continuo. Stampa in norma¬ 
le, compresso, grassetto e proporzionale, 
inoltre permette la stampa di grafici ad alta 
risoluzione. In stampa normale permette di 
ottenere 80 colonne. La velocità è di 120 ca¬ 
ratteri al secondo stampa bidirezionale. L’in¬ 
terfaccia richiesta è di tipo parallelo (cod. 
115-02). È necessario ordinare il set di cavi 
(cod. 122-05). 
































quanto 



Prezzo 
IVA esci. 

Prezzo 
IVA comp. 

Stampante a margherita Apple . 

Per ottenere stampe di documenti e corri¬ 
spondenza di elevata qualità. L’unità permet¬ 
te di utilizzare fogli singoli o modulo continuo. 
La spaziatura fra i caratteri è selezionabile: 
10,12,15 caratteri per pollice. La velocità è di 
40 caratteri al secondo e il percorso è bidire¬ 
zionale ottimizzato. L’interfaccia richiesta 
(cod. 115-01) è di tipo seriale (già compresa 
nell'Apple III, ma non nell’Apple Ile). 

3.600.000 4.248.000 

Stampante IRET 80 Colonne Parallela . 

1.110.000 1.298.000 

Stampante IRET 132 Colonne Parallela . 

1.552.000 1.831.360 

MATERIALE DI CONSUMO 


Confezione 10 dischetti Apple . 

103.000 

121.540 

Raccoglitori per dischetti (50 fogli) . 

68.000 

80.240 

Carta termica per Silentype (10 rotoli) . 

84.000 

99.120 

Confezione 6 nastri per stampante marghe¬ 
rita Apple . 

135.000 

159.300 

6 nastri multi strike per stampante ad aghi 
Apple . 

135.000 

159.300 

6 nastri in tessuto per stampante ad aghi 
Apple . 

135.000 

159.300 

Confezione 6 margherite tipo P.E. 12 . 

Margherita tipo Prestige Elite 12. 

170.000 

200.600 

Confezione 6 margherite tipo C. 10 . 

Margherita tipo Courier 10. 

170.000 

200.600 

Confezione 6 margherite tipo G. 15 . 

Margherita tipo Gothic 15. 

170.000 

200.600 

Confezione 6 margherite tipo B.P . 

Margherita tipo Boldface per stampa Propor¬ 
zionale. 

170.000 

200.600 

ESPANSIONI DEL SISTEMA 

Scheda Z80 Microsoft per Sistema Operati¬ 
vo CPIM . 

811.000 

956.980 

Cobol 80 Microsoft per Scheda Z80 . 

1.562.000 

1.843.160 

Fortran 80 Microsoft per Scheda Z80 . 

406.000 

479.080 

Basic Compiler Microsoft per Scheda Z80 

769.000 

907.420 

ALDS Microsoft (sistema di sviluppo per pro¬ 
grammi Assembler 8080, Z80 e 6502) . 

260.000 

306.800 

Scheda orologio calendario CCS . 

250.000 

295.000 

Arithmetic Processor CCS . 

993.000 

1.171.740 

Scheda espansione Maxi RAM 16K BASIC 

269.000 

317.420 

TASC Microsoft (compilatore Applesoft) . 

364.000 

429.520 



Prezzo Prezzo 
IVA esci. IVA comp. 

PERIFERICHE 

Mega-Disk Doppio drive 5", con controller .... 2.998.000 3.537.640 

Doppio Drive 8" S.D. Doppia faccia . 3.268.000 3.856.240 

Doppio Drive 8 D.D. Doppia faccia con con¬ 
troller . 4.240.000 5.003.200 


INTERFACCE 
Modulatore UHF. 


73.000 86.140 


Interfaccia IRET Centronics con grafica per 

739 . 190.000 224.200 

Interfaccia IRET standard Centronics . 140.000 165.200 

Interfaccia CCS parallela . 260.000 306.800 

Interfaccia CCS seriale RS232-C . 309.000 364.620 

Interfaccia Seriale sincrona CCS . 427.000 503.860 

Interfaccia Centronics con Buffer SET . 400.000 472.000 

Scheda CCS GPIB IEEE488 . 585.000 690.300 

Scheda CCS A/D converter BCD . 237.000 279.660 

Controller per Drive 8" FASTsingola densità 402.000 474.360 

Controller -h Software per compatibilità IBM 

su8"singola densità . 770.000 908.600 

MISCELLANEA 

Alimentatore tampone . 290.000 342.200 

DOCUMENTAZIONE 


User Manual and Report Pascal . 

29.000 

34.220 

Problem Solving Using Pascal . 

23.000 

27.140 

Some Common Basic Programs . 

33.000 

38.940 

SOFTWARE 

Apple Writer Ile Sistema di videoscrittura . 

310.000 

365.800 

Quick File II e Gestione archivi ed indirizzari ... 

180.000 

212.400 

Business Graphics II Sistema di elaborazio¬ 
ne e creazione di grafici . 

352.000 

415.360 

Multiplan per Apple He Sistema di calcolo 
basato su foglio elettronico suddiviso in ele¬ 
menti mutuamente correi abili . 

560.000 

660.800 

Apple Project Manager . 

470.000 

554.600 

Hand Hold Basic . 

237.000 

279.660 

Pascal Animation Tool . 

151.000 

178.180 















































Prezzo Prezzo 
IVA esci. IVA comp. 


Personal Finance . 151.000 178.180 

Supermap . 51.000 61.360 

VT-100 Emulator . 151.000 178.180 

World’s Black Jack . 70.000 83.780 

Senior Analisti! . 454.000 535.720 

Scriptll . 202.000 238.360 

SpeedReader . 151.000 178.180 

Moptown . 103.000 121.540 

Magic Speli . 103.000 121.540 

Datatree . 253.000 298.540 

Visicalc/// . 486.000 573.480 

Mail List Manager Gestione indirizzario po¬ 
stale collegabile ad Apple Writer III . 304.000 358.720 

Quick Filelll . 336.000 396.480 

Apple Writer III Sistema di videoscrittura . 438.000 516.840 

Business graphics III . 352.000 415.360 

Access III . 304.000 358.720 

Script/// . 253.000 298.540 

Senior analisti// . 707.000 834.260 

Pascal Utility Library III . 151.000 178.180 

Catalist . 328.000 387.040 

Personal Data Base 5" . 66.000 77.880 

Personal Data Base 8' . 75.000 88.500 

Personal Filing System per Apple II . 217.000 256.060 

Personal Report System per Apple II . 217.000 256.060 

Software grafico per Centronics 739 . 73.000 86.140 

Programming AIDS 3-3 . 179.000 211.220 

Personal Filing System per Apple III . 258.000 304.440 

Personal Report System per Appiè III . 225.000 256.500 

PTERO (Cominfor) Word processing . 190.000 224.200 

P.F.S. Graphics II . 217.000 256.060 

P.F.S. Graphics III . 304.000 358.720 

P.F.S. Data Saver . 104.000 122.720 

Personal Filing System per Apple Ile . 217.000 256.060 

Personal Report System per Apple Ile . 217.000 256.060 

Personal Filing System Graph per Apple Ile 217.000 256.060 


Prezzo 
IVA esci. 


CCA Data Management System Apple II 

plus . 254.000 

Sistema perla gestione generalizzata di infor¬ 
mazioni. Memorizza dati di qualsiasi tipo, 
consentendo la ricerca automatica ed even¬ 
tuale modifica. 


Desk Top Pian II Apple II plus . 478.000 

Sistema semplice e rapido per organizzare il 
lavoro di analisi finanziaria, preparazione di 
budget e programmazione della gestione. 

Sono previste stampe da allegare alle relazio¬ 
ni e rappresentazioni grafiche necessarie per 
una maggiore chiarezza. 

Desk Top Pian III Apple /// . 573.000 

Versione potenziata del Desk Top Pian II, per 
le maggiori capacità di Apple III. 


VisiCalc Apple Ile . 478.000 

Sistema di simulazione basato su una matrice 
di 64x254 elementi correi abili con metodi di 
calcolo multirelazionale. La matrice è un foglio 
di lavoro, che consente di osservare dinami¬ 
camente le conseguenze delle proprie deci¬ 
sioni, prima di renderle esecutive: poiché con 
VisiCalc è possibile rispondere in ogni mo¬ 
mento alla domanda «Cosa succederebbe 
se...?». Ideale per pianificazioni e program¬ 
mazioni aziendali, giustifica anche da solo 
I 'acquisto di un personal computer anche nel¬ 
le applicazioni scientifiche e di calcolo in ge¬ 
nerale. 


VisiCalc Advanced Version Apple III . 764.000 

Versione del VisiCalc potenziata per le mag¬ 
giori caratteristiche di Apple III. 

VisiCalc Business Forecasting Model Ap¬ 
ple II . 191.000 

VisiCalc Business Forecasting Model Ap¬ 
ple III . 191.000 

Visidex Apple II . 478.000 

Programma di archiviazione dati inseribili li¬ 
beramente in una scheda corrispondente al 
quadro video. Le informazioni possono poi 
essere ricercate istantaneamente secondo ri¬ 
ferimenti incrociati; infatti, ogni parola o carat¬ 
tere appartenente alla scheda può essere 
chiave di ricerca per la stessa. 

Vis itile Apple II . 478.000 

Completo sistema di archiviazione elettroni¬ 
ca, che permette di organizzare facilmente 
tutte le informazioni necessarie alle attività bu¬ 
siness. Oltre alla gestione delle informazioni, 
consente notevoli altre possibilità, quali: cam¬ 
pi calcolati, stampe di rapporti e lo scambio 
dei dati con altri programmi della serie Visi. 

Visiplot Apple II . 382.000 

Vi si plot facilita e sveltisce la produzione di 
grafici e diagrammi: linee (continue o spezza¬ 
te), istogrammi, punti, ideogrammi. È prevista 
anche la possibilità di rappresentare contem¬ 
poraneamente più serie di punti per un più 
rapido confronto. 


Prezzo 
IVA comp. 

299.720 

564.040 

676.140 

564.040 


901.520 

225.380 

225.380 

564.040 

564.040 

450.760 

















































presento 
i kit per 
Apple II 


il mensile di computer 
per tutti e per tutti i computer 


TAVOLETTA GRAFICA - L 215 0|0 

Si collega allo zoccolo dei paddle. £ fornito montato, cali¬ 
brato e collaudato; è compreso II piano di lavoro con il 
menu su foglio di cartoncino plasticato e un minifloppy con 
tutto il software, sia in Applesoft sia compilato. 
Descrizione; MC n. 8 - 9 - 10 - il - 13 


APPLE-minus per aggiungere le minuscole. 

M/1 - Eprom programmata per Appiè II delle nuove serie 
(rev. 7 e seguenti ) L. 30.000 
M/2 - Eprom programmata per Apple I delle serie prece¬ 
denti lo 7 4- circuito stampato + /zoccoli 24pin + 1 
zoccolo 16 pin L. 40.000 

M/3 - Come il kit M/2, basetta m/htata e collaudata 
L. 55.000 

Descrizione: MC n. 3 - 4 - 5^ 7 


e inoltre Computer grafico con Apple 

Impariamo a programmare in Assembler con Apple 

Software Apple 

ecc. 



tutto ciò che non riguardo Apple 


e 


tutti i prezzi di computer e periferiche 
(compresi Apple-compotibili) 


MCmicrocomputer è uno pubblicazione Technimedio s.r.l. - Vio Valsolda 105, 00141 Roma - tei. 06/696654-699526 
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Laser: non paddle 
ma tastiera 

Ho ricevuto, e ve ne ringra¬ 
zio, il dischetto omaggio, e 
anche il dischetto con i pro¬ 
grammi di Applicando 3 da 
me ordinato. Ho trovato di¬ 
vertente il gioco del Laser, 
ma solo dopo averlo con¬ 
vertito per poter giocare con 
la tastiera anziché con le 
paddle, che non ho. Per chi 
volesse, la trasformazione è 
facilissima (vedere listato 
allegato). Dopodiché per 
giocare si punterà a destra o 
a sinistra con le frecce, in 
alto o in basso con la A e la 
Z. Per sparare basta battere 
la barra spazio. Compli¬ 
menti per la rivista. Conti¬ 
nuate cosi. 

Carlo De Dominicis 
Roma 

158 1F L > 5 7HEN L = 5 
152 K = PEEK ( - 16384) 
155 K$ = CHR$ (K) 

168 IF ASC <K$) = 136 
THEN LGUN = 4 

162 IF ASC fl») = 149 
THEN LGUN = 2 
165 IF ASC <K*> = 218 
THEN LGUN = 3 
167 IF ASC (K$) = 193 
THEN LGUN = 1 
368 IF Y > 8 THEN 
HC0L0R= 8: R0T= R: DRAU 
5 AT X,Y: HC0L0R= 3 

169 ON LGUN GOSUB 
195,288,285,218 

178 K = PEEK < - 36384) 
171 K$ = CHR* <K) 

175 IF ASC (») = 168 
THEN GOSUB 215 

Grazie per la modifica, che 
sarà apprezzata sicura¬ 
mente da molti lettori. Gra¬ 
zie anche per i complimen¬ 


ti. Continui anche lei ad aiu¬ 
tarci. 

VisiCaic Advanced 
Version 

Sono un po’ contrariato 
dalla vostia nota (Applican¬ 
do 1, pag. 11) sul tastierino 


numerico per Apple He. Mi 
dispiace che ne abbiate par¬ 
lato bene, perché per me, 
che intendevo usarlo con il 
VisiCaic, è semplicemente 
un bidone. Basta provarlo 
per accorgersene, dal mo¬ 
mento che non disponendo 
di tutte e quattro le frecce 


ma funzionando come sul- 
l’Europlus (dove occorreva 
battere la barra spazio per 
cambiar direzione alle frec¬ 
ce) per passare da una ca¬ 
sella all’altra occorre usare 
non una ma due tastiere! 
Immagino si sia trattato di 
una svista, però, e vi perdo¬ 
no volentieri perché trovo la 
rivista nel complesso molto 
ben fatta, e... ci voleva. 

Con l’occasione vorrei 
chiedervi in cosa si differen¬ 
zia l'Advanced Version dal 
VisiCaic normale... 

Biagio G. Rossi 
Ancona 

Per il tastierino numerico lei 
ha perfettamente ragione: 
può essere utilissimo per al¬ 
tri programmi che richiedo¬ 
no un alto input di cifre, ma 
per lavorare con VisiCaic è 
decisamente scomodo. 
Guanto al VisiCaic Advan¬ 
ced Version, è facile imma¬ 
ginare com 'è: basta pensa¬ 
re a tutte le possibili corre¬ 
zioni e a tutti i possibili mi¬ 
glioramenti che ciascuno di 
noi vorrebbe apportare al 
suo VisiCaic. Uno solo di 
questi desideri non è stato 
ascoltato: non è ancora 
possibile inserire una Label 
più lunga della casella (per 
esempio per un titolo). Perii 
resto c’è proprio tutto: lar¬ 
ghezza di colonna regola¬ 
bile individualmente, possi¬ 
bilità di mostrare le formule 
anziché i dati, possibilità di 
proteggere o controllare 
quel che andrà scritto in al¬ 
cune caselle, predisposi¬ 
zione di un percorso di in¬ 
put di casella in casella 
schiacciando il tasto Tab. È 
poi possibile mostrare auto- 


Mercatino delle mele 


w Vendo/cambio L. 25.000 programmi in alta ri- 
soluzione e sonori su cassetta: Tris, Galaxia, Can¬ 
nonate, Atterraggio Shuttle, Bioritmi (su stampan¬ 
te). Scrivere o telefonare a Diego Lagunas, via 
Nicolò Mauro 24, 31100 Treviso, Tel. 0422/22898. 

fi Vendiamo o scambiamo programmi per Apple 
Il o Ile. Per ricevere la lista spedire 1500 lire in 
francobolli. Carlo Marchesi, Via Giambologna 17, 
oppure Angelo Andina, Via F. Baracca 2, 40033 
Casalecchio di Reno (Bologna). 

• Vendo Micro Professor II - 64K (Apple- 
compatibile) con tastiera esterna ed alimentatore L. 
850.000. Floppy Slim Line e doppio controller L. 
750.000. Nuovi, completi di imballo, manuale e 
DOS 3.3. Ettore Migliori, Via dei Colli 11, 40136 
Bologna, Tel. 051/470971 ore ufficio. 

d Compro Apple II Europlus anche malandato 
purché funzionante e grandissima occasione. Scri¬ 
vere, dettagliando e indicando prezzo richiesto a A. 
Bacchi, Via Massena 2A, 20145 Milano. 

fK Vendo «The Last One» per Apple, fornito di 
manuale L. 300.000. Marco Betti, Via Villa Altieri, 
55100 Lucca, Tel. 0583/584795 oppure in orario 
d’ufficio 331528. 

d Vendo ZX81 + alimentatore, manuale italia¬ 
no, alcune cassette, espansione da 32K, garanzia 
ancora da spedire a L. 330.000. Luciano Semprini, 
Via Rexello 20/14, Genova Pegli, Tel. 010/684214, 
ore serali. 


tlUKI 


mod. 




prezzo da non crederci! 

(verificate allo SMAU o presso i nostri uffici) 



gioca 
la carta 



stampante a margherita 
“alta qualità” 

il meglio per il “Word Processing” 




VIA CIVITALI 75 - 20148 MILANO 

Tel. 02/4047648 - Tx 335654 TELCOM \jg 




















maticamente i valori negati¬ 
vi compresi fra due paren¬ 
tesi, calcolare direttamente 
i valori percentuali e vederli 
contraddistinti dal simbolo 
%, ecc. Le nuove funzioni 
@ sono anch'esse molto 
numerose: oltre a quelle di 
calendario (che permetto¬ 
no di calcolare automatica- 
mente i giorni intercorsi fra 
due date o le ore i minuti e i 
secondi fra due orari), sono 
estremamente interessanti 
le nuove funzioni finanziarie 
@ RATE, @ PERIODS, @ 
PMT, @ PV, @ FV. Queste 
ultime due stanno per Valo¬ 
re Presente e Valore Futuro. 
Per esempio, per calcolare 
un tasso di interesse si può 
usare la funzione @ RATE 
seguita dal numero dei pe¬ 
riodi, e inserendo anche 
pagamenti, valore presen¬ 
te, valore futuro. La funzio¬ 
ne @ IRR calcola il tasso di 
ritorno interno basato su un 
investimento iniziale e una 
range di cash flow. 


Ma c’è anche dell’altro. 
Per esempio la funzione @ 
LABEL: una specie di @ IF 
che permette di stampare 
questa o quella Label 
(«Compra!», «Vendi!»). 

Perché non 
mensile 

Grazie. Applicando ci vole¬ 
va: mi ha fatto ritrovare un 
nuovo entusiasmo. Devo di¬ 
re che ho imparato molte 
cose nuove. Perché non lo 
fate diventare mensile? 

Ing. Gaetano Solimi 
Palermo 

Caro ingegnere, grazie a 
lei. Mensile? È nelle nostre 
intenzioni. Ma in grande mi¬ 
sura dipende dai nostri ami¬ 
ci lettori. Ci aiuti anche lei: 
parli di Applicando a tutti i 
suoi conoscenti che hanno 
già un Apple o che vorreb¬ 
bero comprarlo. Aumentan¬ 
do la diffusione, sarà tutto 
più facile... 


OLTRE CENTO SISTEMI INFORMATIVI 
AZIENDALI BASATI SU 
PERSONAL E PICCOLI MINI FINO A SEI 
POSTI DI LAVORO 



in^D/CTCD 

I PROFESSIONISTI DEL SOFTWARE 
E DEI SERVIZI GESTIONALI 


APPLE ][ 


DATA MANAGEMENT 
SYSTEM 

CONTABILITA’ PER 
PICCOLE AZIENDE 
STUDI PROFESSIO¬ 
NALI 

GESTIONE COMMES¬ 
SE PER AZIENDE AR¬ 
TIGIANE 


• ANALSI E ORGANIZZAZIONE AZIENDA¬ 
LE 

• SELEZIONE E FORMAZIONE DEL PERSO¬ 
NALE 

• TUTTI I MATERIALI DI SUPPORTO DEL 
SISTEMA OPERATIVO 


MILANO - IVREA - BOLOGNA - RIMINI 

ASSOCIATO IDECO: 16 AZIENDE IN 8 RE¬ 
GIONI 


MILANO VIA PIER CAPPONI, 12 - TEL. 
46.94.394 


I«STB» M COM 

DALL'INVE 



Filiali: Milano Tel. 02/75451-Torino Tel. 011/6192192 
Mestre Tel. 041/962255-Genova Tel. 010/451801 
Bologna Tel. 051/557157-Firenze Tel. 055/355841 
Roma Tel. 06/58421 - Napoli Tel. 081/660266. 
Distributori autorizzati in tutta Italia-vedi Pagine Gialle. 










SUPPORTI MAGNETKI3M. 

NZIONE AL PRIMATO TECNOLOGICO. 


I, 


Il primo nastro per 
computer è stato 
prodotto dalla 3M 
nel 1952. Un primato 
che ha consentito la 
realizzazione dei 
supporti magnetici più 
affidabili e sicuri. 

Le Diskette 3M, 
ad esempio. Omologate 
dai maggiori costruttori. 

Certificate al 100%. 

Garantite 5 anni. Esportate 
in tutto il mondo. Prescelte come 
riferimento intemazionale da ECMA, 
ISO ed ANSI. Una gamma completa 
sia per le Diskette 8 pollici che per le 
Minidiskette 5 pollici e un quarto. 

Le Diskette 3M, grazie all’esclusivo 



rivestimento magnetico, 
garantiscono 
un’eccezionale resistenza 
all’usura e la massima 
affidabilità. 

La stessa affidabilità 
\£****^ che offrono tutti i 

Supporti Magnetici 3M: 
Nastri per Computer, 
Dischi Magnetici, 

Data Cartridge. 

Le Diskette e i Nastri Magnetici 3M 
sono interamente fabbricati in Italia e 
questo significa immediata reperibilità 
e migliore assistenza. , 

Assistenza e consulenza tecnica 
che il Cliente trova presso le 8 filiali, 
i venditori diretti e 400 distributori 3M, 
in tutta Italia. 


SISTEMI PER L'UFFKIO 3M.LA PERFEZIONE DELLA SPECIE. 



Telecopiatori 


Copiatori 


Sistema Visual 


Microfilm 


I-1 

| Desidero ricevere ulteriori informazioni i 

• sui Supporti Magnetici 3M. • 

I Nome_ | 

Azienda_ 


Via 


Cap_Città_ 

A 

Ritagliare e spedire a: 

3M Italia S.p.A.-Linea Diretta- 
Casella Postale 10411/10412-20110 Milano. 
Oppure telefonare a: 02/75451 
























Gran Catalogo 

Stufi di battere Return 
quando chiedete il Catalog 
di un dischetto pieno di pro¬ 
grammi e di vedervi sparire 
dallo schermo i primi pro¬ 
grammi per far spazio a 
quelli successivi? Stufi di 
battere Run (o Brun) segui¬ 
to dal nome per intero del 
programma da far girare? 
Ecco un piccolo listato da 
usare come HELLO quando 
inizializzate un nuovo di¬ 
schetto. E la vita tornerà a 
sorridervi. Ogni volta che si 
farà partire quel dischetto, 
infatti, il catalogo sullo 
schermo apparirà diviso in 
due colonne, evidenziando 
ben 42 file per volta invece 
della solita ventina, e, in più, 
sarete in grado di scegliere 
il programma che vi interes¬ 
sa battendo un tasto solo. 
Sembra poco? Pensate a 
quante volte avete dovuto 
ribattere il nome del pro¬ 
gramma di cui avete chiesto 
il Run, solo perché ne ave¬ 
vate battuto male la grafia! 

Il nostro programmino so¬ 
stituisce il numero di settori 
occupati da ciascun pro¬ 
gramma con un carattere 
ASCII compreso fra due 
trattini. Dopodiché anziché 
battere «Run Eliminados» o 
«Run Profitti», sarà suffi¬ 
ciente battere il simbolo che 
compare a fianco del nome 
del programma. 

L’unico accorgimento ne¬ 
cessario per usare questo 
programma, che può dav¬ 
vero risultare comodissimo, 
è quello di adottare nomi di 


188 ONERR GOTO 2880 

118 DEF FN A(X) = PEEK (48) + PEEK (41) * 

256: TEXT : HOME :H£M = < PEEK (978) - ( PEEK 
(978) > 127) * 256) * 256 + 2947: FOR 1 = 

1 TO 24: READ N,D: POKE N ♦ MEM,D: NEXT : 

GOTO 1888 

488 HTAB H2:BA = FN A(X):C = PEEK (BA 4 PEEK 
(36)): 1F C = 160 THEN POP : GOTO 1068 
481 RETURN 

588 7$ = " :BA = FN A(X): FOR X = PEEK (36) TO 
LE:C - PEEK (8A 4 X):T$ = T$ + CHR$ (C) 

: NEXT : RETURN 

1888 PRINT CHR* (4)'CATALOG" 

1848 FOR V = 3 TO PEEK (3?) 4 1: VTAB V:H2 = 

2: GOSUB 488: HTAB 4: PRINT CHR* (V 4 
38);*-*;:H2 = 22: GOSUB 488: KTAB 24: PRINT 
CHR$ (V 4 62) NEXT U 
1868 IF H2 = 22 THEN PRINT 
1888 POKE - 16368,8: PRINT 'SCEGLI IL 8 ~>" 

;: 6ET SEtf:P = ASC <SEL*> 

1098 1F P - 61 > V OR (P - 38 > V AND P < 65) 

OR P = 32 THEN 2888 

1188 1F P < 65 THEN VTAB P - 38: HTAB 2:LE = 

19: GOSUB 588:LE = 8 

1128 IF P > 64 THEN MTAB P - 62: HTAB 22:LE = 

39: GOSUB 588:LE = -28 

1148 IWERSE : HTAB LE:FT$ = LEFT* <T$,1):T* 

= R16HT* (7$,13): PRINT Ti: NQRMAL 
1168 IF ASC (FT*> = 193 THEN C$ = 'RUN" 

1188 IF ASC <F7*) = 212 THEN C* = 'EXEC' 

1288 IF ASC <FT*) = 281 THEN C* = 'RUN' 

1228 IF ASC (FT$) = 194 THEN C* = 'BRIN' 

1240 PRINT : PRINT CHR* <4);C$;7*: END 
2888 POKE 216,8: HOME : INPUT 'HAI CCM1ESS0 U 
N ERRORE - BATTI RETURN PER CONTINUARE. 

RUN 

38888 DATA 1428,12,1439,234,1448,234,1441,23 
4,1398,32,1399,237,1480,253,1483,32,1484, 
237,1485,253,1416,32,1417,66,1418,174,142 
1,32,1422,237,1423,253,1328,234,1321,234, 
1322,234,1347,234,1348,234,1349,234,1313, 
51,1466,50 


Figura 1. Il listato di Gran Catalogo. 


file lunghi non più di 13 ca¬ 
ratteri. 

Ma vediamo come funzio¬ 
na. La linea 110 cambia il 
formato del catalogo usan¬ 
do i Data della linea 30000. 
Le linee 400-401 cercano 
l’ultimo file sullo schermo. 
La linea 500 costruisce il no¬ 
me del file prescelto leggen¬ 
dolo dallo schermo. La linea 
1040 rimpiazza i numeri dei 
settori occupati con i carat¬ 
teri ASCII che fungeranno 
da selettori. La linea 1060 
verifica se l’ultimo file elen¬ 
cato cade nella seconda co¬ 
lonna, e in caso affermativo 
crea una linea bianca per il 
Return. 

Le linee 1080-1120 prele¬ 
vano la vostra selezione da 
tastiera, verificano la colon¬ 
na dalla quale è stata effet¬ 
tuata la scelta, e costruisco¬ 
no una stringa, chiamata 
TS, che conterrà il nome del 
programma scelto. La linea 
1140 stampa il nome del file 
e setta FTS e TS al tipo di 
file e al nome del program¬ 
ma selezionato. Le linee 
1160-1220 testano il tipo di 
file e, finalmente, la linea 
2000 effettua il Run del pro¬ 
gramma. 


Trucco //e 

Non tutti sanno che sull’Ap¬ 
ple //e per fare il booting di 
un dischetto c’è anche un 
sistema più comodo dellTN 
# 6 (o PR # 6). Basta infatti 
schiacciare contempora¬ 
neamente Control, mela 
vuota e Reset. 




* APPLE è un marchio 
registrato dalla APPLE 
COMPUTER INC. 


POSSEDETE UN APPLE*? VOLETE FAR DELLA GRAFICA? 

APPROFITTATE DI QUESTA OFFERTA SPECIALE! 


COMPUTER ELETTRONICA 


VIA S. CATERINA DA SIENA 31/33 
20013 MAGENTA (MI) - TEL. 02/9793520 


vi propone: 

SOFTWARE GRAFICO (su dischetto MAXELL) più una stampante SEIKOSHA 
GP 80 più una confezione di CARTA IN MODULO CONTINUO (2000 fogli) più 

INTERFACCIA parallela per APPLE* più CAVI DI COLLEGAMENTO 


CONDIZIONI DI VENDITA 

Spedite il vostro ordine a: 

COMPUTER ELETTRONICA 

Via S. Caterina da Siena 31/33 

20013 MAGENTA (MI) - Tel. 02/9793520 

Allegate un assegno circolare, un assegno di 


c.c. oppure un vaglia postale intestati a: 
COMPUTER ELETTRONICA, via S. Caterina da 
Siena 31/33 - Magenta (MI). 

Al prezzo d’offerta dovrete aggiungere l'IVA del 
18%. Sarà nostra premura spedirvi in porto as¬ 
segnato la confezione promozionale. 


La vendita si considera effettuata al dettaglio e 
si rilascerà regolare fattura solo se specificata- 
mente richiesta all’atto dell’ordinazione com¬ 
pletata da partita IVA o codice fiscale. 

La merce è coperta da regolare garanzia di 3 
mesi dall’atto della spedizione. 











quahmetric 


BASF 

Qualità 

su 

misura 


Il supporto magnetico BASF è il 
risultato di ricerche approfondite 
ed accurati controlli. Know-how 
nella chimica e nella fisica, 
autonomia nell’elaborazione delle 
materie prime e nella miscelazione 
di ossidi, esperienza nella 
cooperazione media-sistema, 
stanno alla base della ineccepibile 


20147 milano 
viale legioni romane, 5 
telefono 02-4047946 
telex 315206 DATBAS 


DATA BASE 




BASF 


BASF 


»qualimetric« 
ovunque nel mondo 


I 10.000 collaboratori impegnati nella ricerca applicativa sono alla base dell’altissimo 
livello qualitativo dei prodotti BASF. L’esperienza tecnologica nel campo della 
registrazione magnetica che diede origine nel 1934 al primo nastro magnetico ad 
uso amatoriale del mondo, garantisce ora il marchio QUALIMETRIC simbolo di 
tecnologia d’avanguardia. 
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IBASF 


FlexyDisk 


© FlexyDisk 
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Apple 

parla la I tua lingua. 




Indubbiamente con la sua semplicità e versatilità d’uso Apple parla un linguaggio 
universale. Non per niente, nel mondo sono più di 700 mila i possessori 
di un personal computer Apple. 

I personal Apple fanno di tutto per venire incontro alle esigenze più personali. 
Così il nuovo Apple //e, che puoi trovare in oltre trecento centri di dimostrazione 
e vendita in Italia, non solo offre più memoria e maggiore semplicità d’uso, 
ma anche una tastiera italiana. 

I nuovi Apple parlano e scrivono nella tua lingua: nel lavoro avrai un partner che 
capisce meglio i tuoi problemi e li risolve prima; nello studio e nel tempo libero 
un compagno socievole con una fantasia tutta italiana. 

Vieni a scambiare quattro chiacchiere con il nuovo Apple //e e con il più potente 
Apple ///. Scoprirai che sono sorprendentemente semplici anche nel prezzo: 

Apple 17 e completo di video e unità per dischetti è in offerta speciale a soli 
2milioni850mila e Apple/// ha un discorso ancora più interessante da farti. 

^CippkZ II Personal Computer 
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